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Mit mc lernen Sie 
Computer von Grund 
auf verstehen. Aus¬ 
führliche Funktions¬ 
beschreibungen von 
Rechner-Hardware 
und gut kommentierte 
Programm-Listings 
bieten Ihnen den rich¬ 
tigen Einstieg ins ernst¬ 
hafte Computern. 


Durch Programme 
in mc werden Sie 
manches Problem über¬ 
haupt nicht mehr als 
Problem betrachten. 


Nach mc-Bauanlei- 
tungen löten Sie vom 
einfachen Interface 
bis zum kompletten 
System, was an Hard¬ 
ware nur schwer zu 
kaufen ist. 
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68008-Platine 
für Apple-Il 


Geknockter Macintosh 

Kommunikation mit dem 
mc-68000-Computer 


UCSD-Pascai unter MS-DOS 


Erweitertes 

C-64-Grafikpaket 




In mc-Fachaufsätzen 
geht’s um neue Ent¬ 
wicklungen, um pro¬ 
fessionelle Hardware 
und Peripherie. 



Natürlich testet mc 
Geräte und Programme. 
Die Ergebnisse werden 
aus der Sicht des 
professionellen An¬ 
wenders interpretiert. 

Aktuelles aus der 
Branche zu Unterneh¬ 
men, Produkten, Kon¬ 
gressen, Tagungen und 
Messen finden Sie 
jeden Monat in mc. 

mc bringt Profis 
weiter. 

Für DM 6,50 bekom¬ 
men Sie mc an jeder 
größeren Zeitschriften- 
Verkaufsstelle. 
mc können Sie aber 
auch auf andere Art 
kennenlemen. 

Kostenlos und unver¬ 
bindlich. 

Die Abrufkarte dafür 
finden Sie an der 
Umschlagklappe. 
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Editorial 



mit diesem Heft des ComputerSchau-Kompakt- 
wissens halten Sie die zweite Ausgabe in Händen, 
die sich ausschließlich mit den Schneider-Compu¬ 
tern der CPC-Serie beschäftigt. 

Sie haben damit eine weitere Informationsquelle, 
die Ihnen beim Umgang mit Ihrem Schneider- 
Computer behilflich ist. 

In allen Programmlistings ist eine Fülle an Tips 
und Kniffen enthalten, die Sie auch bei der Erstel¬ 
lung Ihrer eigenen Programme verwerten können. 
Die im Heft enthaltenen Programme wurden - 
soweit es uns möglich war - so geschrieben, daß 
sie auf allen CPCs laufen. 

Diesmal haben wir auch für die Besitzer von Dis¬ 
kettenstationen höchst interessante Beiträge. 
Nicht nur die Grundlagenartikel gehen stark auf 
die Disketten ein, in vielen weiteren Artikeln gibt es Ideen, Tips und Kniffe für ver¬ 
schiedenste Anwendungen. Für Anwender von CP/M 2.2 gibt es ein Programmlisting 
für eine DIN-Tastatur. Auch ein Programm zur kompletten Rettung von versehentlich 
gelöschten Files oder zur Abfrage des Disketten-Schreibschutzes ist enthalten. 

Und wie im letzten Heft schon angedeutet, greifen wir auch auf die zweite Speicher¬ 
bank beim CPC 6128 zu. Doch auch Eigentümer des CPC 464 mit Kassettenrecorder 
werden mit vielen interessanten Beiträgen bedient. 

Ein weiterer „Knüller“ ist die im Heft enthaltene Gegenüberstellung der CPC- 
Adressen. Dieser Anhang soll es Ihnen ermöglichen, Programme, die „Peeks“ und 
„Pokes“ enthalten - oder sogar Maschinenprogramme -, die nicht für Ihren CPC-Typ 
geschrieben wurden, an Ihr System anzupassen. 

Wer die im Heft enthaltenen Programme nicht abtippen will, hat die Möglichkeit, all 
diese (und auch die des ersten Heftes) vom Franzis-Software-Service auf Diskette zu 
beziehen. Diesen Service haben wir eingerichtet, damit Leser ohne die Mühe des 
Abtippens in den Genuß der Programme kommen, nachdem wir immer wieder darum 
gebeten wurden. 

Viel Freude und Erfolg mit Ihrem CPC 
wünscht Ihnen 
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„Klar sehen“ heißt fiir die Computer- 
Schau-Redaktion, Ihnen mit diesem 
Kompaktwissen-Heft einen Wissens¬ 
vorsprung zu garantieren . Deshalb ha¬ 
ben wir dafür gesorgt, daß Schneider- 
Freunde mit unseren Tips und Pro¬ 
grammen zu echten Micro-Profls wer¬ 
den, die sogar komplizierte Anwen¬ 
dungssoftware selbst erstellen und ana¬ 
lysieren können. 

Burkhard P. Bierschenck 
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Grundlagen 


Arbeiten mit Diskette (1) 

Einleitung 


In dieser Rubrik konnten Sie im 
letzten Kompaktwissen vor allem 
Einzelheiten und Eigenarten über 
Ihren CPC kennenlemen. Diesmal 
geht es um ein externes Gerät, die 
Diskettenstation . 

Der CPC 664 und auch der CPC 
6128 sind mit diesem schnellen 
Massenspeicher von Hause aus 
versehen . Der CPC 464 kann damit 
nachgerüstet werden . Will man 
nun nicht nur mit käuflicher Soft¬ 
ware arbeiten, dann ist es gut, 
mehr über den Umgang mit dem 
Diskettenlaufwerk zu wissen . 

Bevor ich nun auf das eigentliche 
Thema eingehe, vorab gleich ein 
„echter Hammer“: Demnächst wer¬ 
den von einem Fremdanbieter auch 
Harddiscs für den CPC 464 angebo- 
ten. Weiterhin ist mit einer Zusatz¬ 
platine zu rechnen, die durch einen 
Coprozessor den CPC 464 auch MS- 
DOS-fähig und IBM-kompatibel ma¬ 
chen soll. Dann sind für die CPCs 
weitere professionelle Einsatzmög¬ 
lichkeiten offen. Bis zum Zeitpunkt 
der Niederschrift dieses Artikels 
konnte ich nur ein Mustergerät in 
Betrieb sehen. Es liegen außerdem 
noch keine detaillierten Angaben 
hierüber vor, deshalb kann ich auch 
noch keine genaueren Angaben ma¬ 
chen. Geplant sind jedoch zwei 
Ausführungen mit zehn und zwan¬ 
zig Megabyte. 

Ein einziges Programm 
für riefe Anwendungen 

Doch zurück zum Umgang mit der 
Diskettenstation, ich will Ihnen ja 
einiges hierüber mitteilen. Für die 
Anwendung der in diesen Artikeln 
veröffentlichten Programme ist die¬ 
ses Wissen zwar nicht unbedingt er¬ 
forderlich aber sehr, sehr nützlich. 


Lesen Sie deshalb, auch wenn Sie 
an Maschinensprache nicht interes¬ 
siert sind, weiter. Ich bemühe mich, 
die Dinge so einfach wie nur mög¬ 
lich darzustellen. Auch weitere ei¬ 
gene Disketten-Programme können 
Sie dann durch den Einsatz von nur 
einem (!) Maschinenprogramm ent¬ 
wickeln. Und dies alles in Basic! 
Keine Angst, Sie sollen nun nichts 
über den komplizierten technischen 
Ablauf zu lesen bekommen, son¬ 
dern nur die Dinge, die für alle An¬ 
wendungen, die nun durchgespro¬ 
chen werden sollen, erforderlich 
sind. 

Das Basiswissen über die Disketten¬ 
station und über die Diskette selbst 
aber, sollten Sie den Handbüchern 
entnehmen. 

Zur Auffrischung bzw. Erinnerung 
sei nur noch einmal darauf hinge¬ 
wiesen, daß eine Diskette bei der 
Formatierung ein magnetisches Mu¬ 
ster „aufgedrückt“ bekommt und 
dadurch die Diskette in Spuren 
(tracks) und Sektoren (sectors) ein¬ 
geteilt wird. 

Diese Formatierung kann für drei 
Formate durchgeführt werden. 

- IBM-Format 

- Data-only-Format 

- System Format (CP/M-Format und 
Vendor) 

(Das Vendorformat ist nur eine Son¬ 
derform des CP/M-Formates.) 

Aber auch andere Formate sind mit 
dem Wissen über die Arbeitsweise, 
innerhalb der Grenzen des Control¬ 
lerbausteines möglich. Hierzu müs¬ 
sen dann eigene - anstelle der „ein¬ 
gebauten“ - Routinen geschrieben 
und die Diskettenparameter direkt 
in den „Extended Disk Parameter 
Block“ gepatcht werden. Software¬ 
anbieter benutzen derartige Techni¬ 
ken als Schutz gegen Raubkopien. 
Das IBM-Format will ich derzeit 
größtenteils noch unberücksichtigt 
lassen, da wahrscheinlich nur weni¬ 


ge Anwender unter dieser Formatie¬ 
rung arbeiten. Prinzipiell kann aber 
alles folgende auch analog für die¬ 
ses Format „umgedacht“ werden. 
Was Sie nun lesen, trifft also für 
beide behandelten Formate, näm¬ 
lich Data-only und CP/M zu. Bei der 
Formatierung wird die Diskette in 
40 Spuren (0 bis 39) mit je 9 Sekto¬ 
ren (1 bis 9) eingeteilt. Die Sektoren 
erhalten als Kennzeichen für das 
Format ein Identifikationszeichen, 
welches sowohl die Sektornummer, 
als auch den Code für das Format 
beinhaltet. 

Das Formatkennzeichen für Data- 
only ist dabei der Wert &C0 und für 
CP/M &40. Diese Werte müssen zur 
jeweiligen Sektornummer addiert 
werden. Unter CP/M gibt es in jeder 
Spur also die Sektornummern &41 
bis &49 und unter Data-only die 
Nummern &C1 bis &C9. (IBM-For¬ 
mat 01 bis 08!) 

Ein weiterer Unterschied zwischen 
diesen beiden Formaten ist, daß un¬ 
ter CP/M zwei komplette Spuren für 
das System reserviert sind und dem 
Anwender normalerweise nicht zur 
Verfügung stehen. Diese beiden 
Spuren beinhalten den „Boot-Sec- 
tor“, den „Configuration-Sector“, 
„CCP“ und „BDOS“. 

Immer ans Copyright denken! 

Beim Format Vendor werden diese 
beiden ersten Spuren nicht mit 
wirklichen Daten beschrieben, son¬ 
dern freigehalten. Deshalb dient 
diese Formatierung auch zur Wei¬ 
tergabe von Disketten mit CP/M- 
Programmen. Bitte denken Sie im¬ 
mer daran, daß Sie aus Copyright- 
Gründen keine „echten“ CP/M-Dis- 
ketten weitergeben dürfen! 

Wenden wir uns nun weiteren Ein¬ 
zelheiten zu. Jeder Sektor auf der 
Diskette „faßt“ insgesamt 512 Bytes 
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an Daten. Eine einfache Multiplika¬ 
tion zeigt nun die Diskettenkapazi¬ 
tät unter den beiden Formaten. 
Formel: VS • AS • BS 
Hierbei bedeuten: 

VS = Anzahl der verfügbaren 
Spuren 

AS = Anzahl der Sektoren pro Spur 
BS = Bytes pro Sektor. 

Mit eingesetzten Werten ergeben 
sich folgende Kapazitätswerte: 
SYSTEM-Format: 

(40-2) • 9 ■ 512 = 175 104 Bytes = 
171 KByte. 

Data-only-Format: 

40 • 9 ■ 512 = 184 320 Bytes = 180 
KByte. 

Wer sich bei einer frisch formatier¬ 
ten (oder „gelöschten“) Diskette 
schon einmal das Inhaltsverzeich¬ 
nis angesehen hat, wird nun bereits 
Differenzen zwischen meinen An¬ 
gaben und der Mitteilung der „free- 
Meldung“ feststellen. Der Grund 
dieser Differenz ist aber schnell ge¬ 
klärt. Das Inhaltsverzeichnis (Direc¬ 
tory) benötigt nämlich ebenfalls 
Platz und deswegen fehlen zwei Ki¬ 
lobyte bei der Mitteilung des freien 
Speicherplatzes. Zieht man diese 
von den berechneten Zahlen ab, 
dann stimmt alles wieder. 

Nur 64 Directory-Einträge 
sind möglich 

Damit sind wir aber bereits an ei¬ 
nem weiteren Punkt angelangt. Das 
Inhaltsverzeichnis (Directory) be¬ 
legt also 2048 Bytes. Da jeder File¬ 
eintrag 32 Bytes belegt, sind aus die¬ 
sem Grunde auch nur 64 Fileeinträ¬ 
ge im Directory möglich. Das heißt, 
daß nicht mehr als 64 Programme 
(und seien sie auch noch so kurz) 
pro Diskettenseite gespeichert wer¬ 
den können. Der Kapazitätsumfang 
des Inhaltsverzeichnisses setzt da¬ 
bei die Grenze! Hiervon und auch 
noch von anderen Dingen, können 
sich anhand der Programme, die ich 
Ihnen in diesen Grundlagen-Arti- 
keln gebe, auch in der Praxis über¬ 
zeugen. Doch bevor wir zur Ent¬ 
wicklung dieser Programme überge¬ 
hen, müssen noch ein paar weitere 
Punkte geklärt werden. 

Damit die Diskettenstation vom 
CPC „angesprochen“ werden kann, 
befindet sich im CPC (664 und 


6128) oder im aufsteckbaren Interfa¬ 
ce beim CPC 464, AMSDOS (AM- 
Strad Disc Operating System), das 
Disketten-Betriebs-System. Dieses 
erlaubt es, Diskettenfiles in der glei¬ 
chen Art und Weise wie Kassetten¬ 
files anzusprechen. Es steckt in ei¬ 
nem der sogenannten „Sideways- 
ROMs“, die vom CPC angesprochen 
werden können. Zusatzroms sind 
bei den CPC’s auf hervorragend 
durchdachte Weise in das Betriebs¬ 
system der CPCs „einbindbar“. 
Während der Initialisierungsphase 
des Computers wird - aufgrund ver¬ 
schiedener Speicherstelleninhalte 
in den Zusatzroms - nämlich abge¬ 
prüft, welche ROMs im Vorder¬ 
grund oder Hintergrund arbeiten, 
bzw. ob es sich um sogenannte „On- 
board“-ROMs handelt. Eine mir - in 
dieser Art - bisher nur von den 
CPCs her bekannte Technik, die äu¬ 
ßerst leistungsstark ist und deshalb 
(bezüglich Betriebserweiterungen) 
vergleichbare Computer um Längen 
schlägt. Wer mehr über diese Me¬ 
thode erfahren will, kann einen Teil 
darüber im ersten Teil des Compu- 
terSchau-Kompaktwissens nach- 
schlagen oder — falls er voll in die 
Thematik einsteigen will - sich das 
Firmwarehandbuch zulegen. Zum 
augenblicklichen Verständnis die¬ 
ser Grundlagenartikel reicht es aber, 
zu wissen daß der CPC ROMs, die in 
den Bereich ab &c000 „eingeklinkt“ 
werden können, ansprechen kann 
und daß diese ROMs eine Auswahl¬ 
nummer haben müssen. Diese Aus¬ 
wahlnummer (Select-number) wird 
benötigt damit bei evtl. Zugriffen 
auf solche Erweiterungen, auch der 
richtige Chip angesprochen wird. 
Die Auswahlnummer des Disketten- 
ROMs (BIOS-ROM) ist mit sieben 
festgelegt. BIOS heißt Basic Input/ 
Output System, hat aber mit der 
Programmiersprache Basic nichts 
zu tun. In diesem ROM steckt auch 
AMSDOS und ein Teil von Dr. 
LOGO. 

Mit diesen Informationen können 
Sie nun bereits tiefer einsteigen. Mit 
z. B. dem Hexpeeker aus dem ersten 
Heft oder (natürlich viel sinnvol¬ 
ler !) mit einem leistungsfähigen 
Disassembler/Monitor kann man 
sich nach Auswahl der Selectadres- 
se dieses DOS (Disk-operating-sy- 
stem) näher ansehen. 


Neun sehr 

leistungsfähige Befehle 

„Maschinenprogrammierer“ wer¬ 
den bei näherer Betrachtung schnell 
die „Sprungleiste“, also den (auf 
neudeutsch) „Jump block“ der Dis¬ 
kettencontrollerbefehle finden. Die¬ 
se Sprungbefehle stehen von &C033 
bis &C04D im - dem Bildschirm- 
RAM überlagerten - BIOS-ROM. 

Die Befehlscodes für diese (insge¬ 
samt neun) Befehle stehen von 
&C0B6 bis &C0BF und gehören zum 
CP/M-BIOS, stehen aber auch dem 
AMSDOS zur Verfügung. Wer hier 
noch tiefer „eintauchen“ will, dem 
kann - als Zusatzliteratur zum 
Handbuch - das von Data Becker 
herausgegebene Floppy-Buch emp¬ 
fohlen werden. Trotz der (in den 
Listings) leider enthaltenen Fehler 
ist es ein brauchbares Informations¬ 
werk. Wer einen „guten Draht“ nach 
England hat und auch noch der eng¬ 
lischen Sprache mächtig ist, der fin¬ 
det im „Disc Firmware Supple¬ 
ment“ ebenfalls viel an tiefergehen¬ 
den Informationen. Auch die in 
manchen Veröffentlichungen als 
„versteckt“ genannten Befehle und 
deren Handhabung sind dort aus¬ 
führlich beschrieben. Vielleicht gibt 
es bis zum Erscheinen dieses Heftes 
aber auch bereits eine deutsche 
Übersetzung hiervon. 

Für uns reicht es im Augenblick zu 
wissen, daß es im Disketten-Be- 
triebssystem sowohl einen Befehl 
für das Lesen, als auch für das 
Schreiben eines Sektors gibt. Außer¬ 
dem ist noch von Interesse, daß das 
Betriebssystem der CPCs eine Firm¬ 
wareroutine für das Auffinden von 
Befehlen und Routinen bereitstellt. 
Diese Routine findet auch Befehle 
von externen ROMs. Sie hat den 
Namen „KL FIND COMMAND“ und 
wird durch call &BCD4 aufgerufen. 
Beim Einsprung in diese Routine, 
ist nur eine Einsprungbedingung er¬ 
forderlich, das „HL“-Register muß 
die Adresse des Kommandona¬ 
mens, nach dem gesucht wird, ent¬ 
halten. Der CPC prüft daraufhin, ob 
ein RSX-Befehl oder ein Hinter- 
grund-ROM-Befehl, der diesen Spe¬ 
zifikationen entspricht, vorhanden 
ist. Durch „Carry-Flag“ an oder aus, 
wird der Verlauf der Suche signali- 
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siert. Carry-Flag an heißt gefunden, 
im anderen Falle nicht gefunden. 
Da ich voraussetze, daß das CPC- 
System ordnungsgemäß arbeitet 
und die Programme, die Sie später 
einsetzen, korrekt abgeschrieben 
wurden, brauchen wir uns nur um 
die „erfolgreiche“ Suche zu küm¬ 
mern. Nach der Rückkehr aus der 
Suchroutine enthält das Register 
„C“ die ROM-Auswahladresse 
(ROM-select) und „HL“ enthält die 
Adresse der gesuchten Routine. Die¬ 


se Registerinhalte müssen in Spei¬ 
cherstellen geladen werden, auf die 
ein „Folgeprogramm“ zugreift. Da¬ 
mit haben wir nun die Vorausset¬ 
zungen für den direkten Zugriff auf 
die Diskette. 

Welche „Mächtigkeit“ Sie mit die¬ 
sem Wissen haben, wird Ihnen nach 
Lektüre dieser Grundlagenartikel 
und deren Anwendungsbeispielen 
bestimmt klar werden. Ich kann Ih¬ 
nen vorab nur mitteilen, daß Ihnen 
Möglichkeiten offenstehen, die Ihre 


Erwartungen vermutlich weit über¬ 
treffen. So ist es möglich, sehr kom¬ 
fortabel gelöschte Files wieder zu¬ 
rückzuholen, sogenannte RAN- 
DOM-Dateien aufzubauen, „COM- 
Files“ in Binärfiles zu ändern und 
vieles mehr. Einzige Voraussetzung, 
daß auch Sie all dies programmie¬ 
ren können ist Ihr Wille. Wie es geht 
wird in diesem Heft durch einige 
Beispiele gezeigt. Im nächsten Kapi¬ 
tel führe ich Sie dann wirklich ins 
„Eingemachte“. L. Miedel 


I f *Ji 
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< U 


Falls die CPC-Dateiverua1tung 

Version d 

in Kassettenrecorderbetrieb eingesetzt 
werden soll, ist es anzuraten den 

Basictei1 durch folgende Zeilen 
zu ergaenzen: 

1731 if len(dateinl)<8 then dateinf= 

date in$ + " : goto 1731 

1816 if len(datein$)<8 then dateinf= 

dateini+” “:goto ±816 

Sonst; muss bei Dateinamen die kuerzer 
als 8 Zeichen sind, beim Laden 

mit Spaces (Leerzeichen) auf die Anzahl 
von acht Zeichen aufgefuellt werden I 
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Arbeiten mit Diskette (2) 
Maschinenprogramm 
für den Zugriff 
auf einen Sektor 


Aufbauend auf den vorhergehen¬ 
den Artikel will ich nun mit Ihnen 
gemeinsam eine Routine entwik- 
keln , die den direkten Zugriff auf 
einen bestimmten Sektor einer Dis¬ 
kette ermöglicht Dieser Routine 
dient auch für spätere Programme 
als Unterroutine. Deshalb will ich 
Ihnen die genaue Arbeitsweise er¬ 
klären. Da ein sinnvoller Zugriff 
nur in Maschinensprache gesche¬ 
hen kann, werden wir uns diesem 
„Rasisteil” zuerst widmen. 

Um ein derartiges Maschinenpro¬ 
gramm entwickeln zu können, be¬ 
dient man sich sinnvollerweise ei¬ 
nes Assemblerprogrammes. Im letz¬ 
ten Heft habe ich bereits einen As- 
sembler/Disassembler/Editor gete¬ 
stet, mit dem ich auch heute noch 
arbeite. Zwischenzeitlich besitze 
ich nun zwei Versionen, da sich - 
wie im Testbericht bereits angedeu¬ 
tet — die Version 1.09 nicht auf dem 
6128 oder 664 bewährte. (Das 
Eprom war nicht schnell genug!) 
Für Interessenten an diesem ROM- 
Programm sei erwähnt, daß - auf¬ 
grund der Unterschiede der engli¬ 
schen und deutschen 6128-Versio- 
nen - die Adaption nur mit einem 
selbstgebastelten Adapterstecker ge¬ 
schehen kann (Stand: 1. 11. 1985). 
Dies ist zwar für einen versierten 
Bastler nicht schwierig, für einen 
„elektronischen Linkshänder“ aber 
eine kaum überwindbare Hürde. 
(Hoffentlich nimmt sich demnächst 


jemand dieser Sache an, sonst gibt 
es immer wieder Probleme mit aus 
England stammenden Erweiterun¬ 
gen, wenn diese an den CPC 6128 
angeschlossen werden sollen.) 

Das Programm wird erstellt 

Ich schildere nun die Vorgehens¬ 
weise mit dem schon erwähnten As¬ 
sembler. Dieser muß natürlich erst 
aktiviert und in den Editormode ge¬ 
bracht werden. Als erstes teilen wir 
dem Assembler die Adresse mit, ab 
welcher das Maschinenprogramm 
abgelegt werden soll. Da es sich um 
eine sehr kurze Routine handelt, 
kann diese Adresse sehr weit oben, 
also beispielsweise auf &A600 ge¬ 
setzt werden. Mit dem „MAXAM im 
ROM“ kann allerdings der Test der 
Routine an dieser Stelle nicht erfol¬ 
gen, denn MAXAM ist dort selbst 
aktiv. Während der Austestphase 
kann dieses Programm beispiels¬ 
weise auf &A000 gelegt werden, um 
es später, wenn man sich von der 
Fehlerfreiheit überzeugt hat, für den 
Bereich ab &A600 zu assemblieren. 
Betrachten Sie nun bitte die Zeilen¬ 
nummer 6 des Assemblerlistings. 
Dort wird durch org &A600 be¬ 
stimmt, daß das Maschinenpro¬ 
gramm ab dieser Adresse abelegt 
werden soll. Als nächstes legen wir 
die Adresse für das aktive Laufwerk 
fest. Dies hat den Vorteil, daß wir 
später auch auf ein zweites Lauf¬ 
werk zugreifen können. Die Spei¬ 


cherstelle, in der bei den CPCs die 
Nummer des aktiven Laufwerks ab¬ 
gelegt wird, ist &A702. Sinnvoller¬ 
weise nennen wir diese Speicher¬ 
stelle „aktdriv“. Die Einsprung¬ 
adresse für die Suche nach einem 
Kommando ist wie im letzten Ab¬ 
schnitt schon erwähnt, &BCD4. Der 
Name hierfür wurde mit findco, der 
Abkürzung für „Finde Kommando“ 
gewählt. Als nächstes muß die Ta¬ 
belle zur Aufnahme bestimmter 
Werte aufgebaut werden. (Ein kom¬ 
fortabler Assembler ermöglicht je¬ 
derzeit das „Zwischenschieben“ 
von Befehlen, Direktiven usw. in 
den bestehenden Sourcecode.) Da 
später auch eine Beeinflussung des 
Maschinenprogrammes von Basic 
aus erfolgen soll, werden in dieser 
Tabelle Speicherplätze für verschie¬ 
dene „Merker“ reserviert. Für unser 
Programm benötigen wir Platz für 
den Befehl (befehl = 1 Byte), die 
ROM-Adresse (romadr = 2 Byte), 
für ROM-Select (romsei = 1 Byte), 
für die Laufwerksnummer (driven 
= 1 Byte), für die Spur-Nummer 
(track = 1 Byte), für Format und 
Sector-Nummer (formse = 1 Byte) 
und schließlich noch für den Buffer 
aus dem oder in den die Daten gele¬ 
sen oder geschrieben werden (buffer 
— 2 Bytes). 

Tabellen bringen Vorteile 

Durch den Aufbau von Tabellen ge¬ 
winnen wir den „Freiheitgrad“, spä- 
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ter auf einfache Weise die ge¬ 
wünschten Werte - von Basic aus - 
in das Maschinenprogramm poken 
zu können. Außerdem werden beim 
Assemblerlauf (falls gewünscht] die 
Adressen mit den Namen ausgege¬ 
ben, was bei der Basicprogrammer- 
stellung mehr oder weniger kompli¬ 
zierte Berechnungen und Überle¬ 
gungen überflüssig macht. 

Nun folgt das eigentliche Maschi¬ 
nenprogramm, das wir nun zwi¬ 
schen den ersten Teil und der Ta¬ 
belle einschieben. 

Zeile 11 (also ab der Adresse 
&A600) bewirkt, daß der Akkumula¬ 
tor mit dem Inhalt der Speicherstel¬ 
le für das aktive Laufwerk geladen 
wird. Dadurch kann beim späteren 
Programmlauf der automatische Zu¬ 
griff auf das jeweils ausgewählte 
Laufwerk erfolgen. Dieser Wert 
wird dann sofort (Zeile 12] in die 
„Merker“-Speicherstelle der Drive- 
(Laufwerks-]Nummer übertragen. 
Anschließend wird die Adresse des 
Befehles geholt und die Suchrouti¬ 
ne aufgerufen. Da bei intaktem CPC 
und korrekt angeschlossenem Lauf¬ 
werk die Suche erfolgreich sein 
muß, können die in den Registern 
„HL“ und „C“ enthaltenen Werte 
der Suchroutine direkt in die reser¬ 
vierten Speicherstellen übertragen 
werden (Zeile 15 bis 17). Um über 
einen sogenannten Restart die ei¬ 
gentliche Ausführung des Befehles 
zu bewirken, sind noch weitere Vor¬ 
aussetzungen zu berücksichtigen. 
Die Laufwerksnummer muß im E- 
Register stehen, das D-Register muß 
die Spur-Nummer enthalten, im C- 


Register muß die Sektornummer 
(inklusive der Formatkennzeich¬ 
nung] stehen und zu guter Letzt muß 
„HL“ die Bufferadresse enthalten. 
Dies alles geschieht in den Zeilen 
18 bis 24. Beim Restart selbst wird 
außerdem noch die ROM-Adresse 
der eigentlichen Routine „mitge¬ 
nommen“. 

Wird beim späteren Programmlauf 
die Routine abgearbeitet, dann steht 
im gewünschten RAM-Speicherbe¬ 
reich (Buffer] genau der gewünschte 
Sektorinhalt der Diskette. 

Ein Byte mit groBer Wirkung 

Da wir in der Tabelle den Befehls¬ 
wert mit &84 festgelegt haben, han¬ 
delt es sich im Moment um ein Pro¬ 
gramm zum Lesen eines Sektors. 
Ändert man nur den Befehlscode in 
korrekter Weise, dann wird nicht 
ein Sektor gelesen, sondern ge¬ 
schrieben. Dabei können alle ande¬ 
ren Parameter in der gleichen Art 
übergeben werden. Um es nochmals 
anders auszudrücken, bei Änderung 
des Befehles von &84 in &85 werden 
512 Bytes ab dem festgelegten Buf¬ 
feranfang in den, in den anderen 
Registern festgelegten Sektor ge¬ 
schrieben. So einfach geht das! Der 
Rest des Assemblerlistings dürfte 
keine Verständnisschwierigkeiten 
bereiten. Die Bufferadresse und 
formse (Format und Sektor] wurden 
zwar im Assemblertext definiert, 
aber wir können von Basic aus ja 
jeden Tabellenwert verändern. 
Damit haben wir nun eine Grund¬ 
routine erstellt, die uns bei allen 


weiteren „direkten“ Arbeiten mit 
der Diskettenstation wertvolle Dien¬ 
ste leisten kann. Da nicht jeder CPC- 
Besitzer über einen Assembler ver¬ 
fügt, habe ich selbstverständlich 
auch einen „Dataloader“ erstellt, 
der das entsprechende „Binärfile“ 
automatisch auf der Diskette gene¬ 
riert. Die Basicprogramme laden 
dann jeweils dieses erzeugte Binär¬ 
file (Sector.bin] nach, also nicht den 
Dataloader! 

Ich habe es im letzten Heft zwar 
schon einmal erwähnt, aber doppelt 
„genäht“ hält besser. Vergleichen 
Sie doch einmal die Daten des Data- 
loaders mit den Daten des Assem¬ 
blerlistings. Wie Sie sehen, sind bei¬ 
de gleich. Der Dataloader ist also 
nur eine „Krücke“, um Maschinen¬ 
programme in eine druckbare und 
direkt eingebbare Form zu bringen. 
Vor dem Lauf des Dataloader sollten 
Sie aber unbedingt den Maschinen¬ 
sprachebereich durch MEMORY 
&A5FF vor dem „Überschreiben“ 
schützen. Dies können Sie bei¬ 
spielsweise auch im Programm 
selbst tun. Wenn Sie es nämlich ver¬ 
gessen, kann es passieren, daß dort 
ganz andere Werte stehen, denn 
Stringvariable werden ja von HI- 
MEM abwärts im Speicher des CPC 
abgelegt. Auch die späteren Basic¬ 
programme müssen diesen Bereich 
„schützen“. 

Alles was jetzt noch zu tun ist, kann 
mittels eines Basicprogrammes be¬ 
stimmt werden. 

Im nächsten Kapitel werden wir 
dies für einen ersten Anwendungs¬ 
fall tun. Lothar Miedet 


ARNOR Z0O 

ASSEMBLER 

Version 1.10 


Page 001 

00002 



;********#*#*********** 


00003 



;*** SECTOR 

(c) LH *** 


00004 



;********************** 


00005 

A474 


write "sector.bin" 


00006 

A600 

(A600) 

org 

&a600 


00007 






00008 

A600 

(A702) 

aktdriv equ 

&a702 


00009 

A600 

(BCD4) 

findco equ 

&bcd4 


00010 






00011 

A600 

3A 02 A7 

ld 

a,(aktdriv) 

jaktlve drive# holen 

00012 

A603 

32 26 A6 

ld 

(driven),a 

;und in tabe11e 

00013 

A606 

21 22 A6 

ld 

hl,befehl 

»Befeh 1sadresse 

00014 

A609 

CD D4 BC 

cal 1 

findco 

jAdresse und Select holen 

00015 

A60C 

22 23 A6 

ld 

(romadr),hl 

»Sprungadresse in Tabelle 
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00016 

A60F 

79 




ld 

a, c 

»Romsei uebergeben 

00017 

A610 

32 

25 

A6 


ld 

(romsei),a 

;und in Tabelle ablegen 

00018 

A613 

21 

26 

A6 


ld 

hl,driven 

»Adresse fuer drive holen 

00019 

A616 

5E 




ld 

e,(hl) 

;drive# in f s E-Register 

00020 

A617 

23 




inc 

hl 

;Zeiger auf track 

00021 

A618 

56 




ld 

d,(hl) 

»track in 1 s D-Register 

00022 

A619 

23 




inc 

hl 

;Zeiger auf formse 

00023 

A61A 

4E 




ld 

c,(hl) 

;Format + Sector in C 

00024 

A61B 

2A 

29 

A6 


ld 

hl,(buffer) 

;Bufferadresse holen 

00025 

A61E 

DF 

23 

A6 


rst 

3,romadr 

;Befehl ausfuehren 

00026 

A621 

C9 




ret 


»zurueck nach Basic 

00027 





;*********** 



00028 





;* Tabelle * 



00029 





; *********** 



00030 

A622 




.befehl 




00030 

A622 

84 




def b 

&84 

»Lesebefehl 

00031 

A623 




.romadr 




00031 

A623 

00 

00 



def b 

&00,&00 

; ROM-Einsprung 

00032 

A625 




.romsei 




00032 

A625 

00 




def b 

&00 

;hier Romselect 

00033 

A626 




.driven 




00033 

A626 

00 




def b 

köO 

»enthaelt Drive-# 

00034 

A627 




.track 




00034 

A627 

00 




def b 

köö 

;Track-# 

00035 

A628 




.formse 




00035 

A628 

CI 




def b 

kcl 

; Format + Sector 

00036 

A629 




.buffer 




00036 

A629 

00 

90 



def b 

&00,&90 

;Bufferadresse 

00037 









Errors 

: 00000 i 

Warnings: 

00000 




SYMBOL TABLE: 







A702 AKTDRIV 



A622 

BEFEHL 


A629 BUFFER 

A626 DRIVEN 

BCD4 FINDCO 



A628 

FORMSE 


A623 ROMADR 

A625 ROMSEL — 

A627 TRACK 









L. i s 

t i ng : 


SECTOR 

(Dataloader) 




100 ’Dataloader Maschinenprogrammroutine ''Sector'’ 

110 1 

120 a=&A600:e=&A62A:zb=1000:e=e+l 

130 FOR i =a TO e:READ d$:IF LEFT$(d$, l) = "& n THEN flag =1 

140 IF (flag AND ps<>VAL(d$)) THEN PRINT n Fehler in Zeile n zb+l:END 

150 IF (flag AND i=e) THEN 190 

160 IF flag THEN i=i-l:zb=zb+l:ps=0:d$=” n :flag = 0:GOTO 160 
170 d*= n tt n +d$:POKE i, VAL(d$) :ps=ps+VAL(d$): 

180 IF i < e THEN NEXT i 

190 SAVE n sector. bin",.b, &A600,43 

200 PRlNT n Maschinenprogramm "Sector" geladen und abgespeichert "‘‘END 
210 ' 

1000 ’Datas fuer das Maschinenprogramm 

1001 DA TA 3A, 02, A 7, 32,26, A6,21,22, A6, CD, D4, BC, 22,23, A6, 79, &068B 

1002 DA TA 32,25, A6,21,26, A6,5E, 23,56,23, 4E, 2A,29, A6, DF, 23, &052D 

1003 DA TA A6, C9, 84,00,00,00,00,00, CI, 00,90, &0344 
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Arbeiten mH Diskette (3) 

Lesen eines 
Diskettensektors 


Nun „steht” also unser Maschinen¬ 
programm zum Lesen und Schrei¬ 
ben von Diskettensektoren. Um 
dieses herum bauen wir nun unse¬ 
re Basicprogramme auf. 

Als erstes nun ein Programm, wel¬ 
ches ich aufgrund einer Leseranre¬ 
gung geschrieben habe . Ein Leser 
der ComputerSchau hatte mich ge¬ 
beten, ihm bei seinem Problem zu 
helfen . Es ging darum, ein CPIM- 
COM-File in ein Binärfile umzu¬ 
wandeln. 


Dieser Leser hatte für einen anderen 
Computer (VZ200) eine Befehlser¬ 
weiterung in Assembler geschrie¬ 
ben. Diese zusätzlichen Befehle 
sollten in ein Eprom vom Typ 
27128 gebrannt werden, um danach 
ein eingebautes ROM zu ersetzen. 
Zur Erstellung des Sourcecodes be¬ 
nutzte der Leser den Macro-80-As- 
sembler unter CP/M 80 auf dem 
Schneider CPC 464. Der Output (das 
Ergebnis) war eine Hex-Datei, bzw. 
ein lauffähiges Programm mit dem 
Extend .COM. 

Zum Brennen des Eproms war ein 
EPROM-Programmer (Typ 4003) 
von der Firma Dobbertin vorhan¬ 
den. Dieser Eprommer wird auch 
für die CPC’s angeboten. Das Pro¬ 
blem hierbei war nun, die COM- 
Datei in eine BIN-Datei umzuwan¬ 
deln. Wäre es aber nur um den Ex¬ 
tend gegangen, wäre dies gewiß 
kein Problem gewesen. Aber es ging 
genauer gesagt darum, daß die BIN- 
Datei ab einer bestimmten Speicher¬ 
adresse im CPC stehen mußte, da¬ 
mit die Prommersoftware korrekt 
loslegen konnte. Der Leser konnte 


bis zu diesem Zeitpunkt kein Pro¬ 
gramm finden, das diese Umsetzung 
hätte bewirken können. Dies hätte 
bedeutet, daß insgesamt 16 KByte 
Maschinenprogramm hätten von 
ihm abgetippt werden müssen. Wer 
jemals längere Maschinenprogram¬ 
me abgetippt hat, kann sich vorstel¬ 
len, welches mühselige und auch 
fehlerbehaftetc Unterfangen eine 
derartige Unternehmung darstellt. 
Das von mir an den Leser übersand¬ 
te Programm, half ihm aus diesem 
Dilemma. Demnächst will dieser 
Leser auch noch die ROMs des CPC 
in Angriff nehmen. Da seit kurzer 
Zeit für die CPC’s Erweiterungskar¬ 
ten angeboten werden, ist deshalb, 
so glaube ich, das Problem für viele 
Leser, die sich eigene Erweiterungs- 
eproms brennen wollen, von gro¬ 
ßem Interesse. Deshalb ist hier eine 
Möglichkeit aufgezeigt, wie auch 
Sie derartige „Problemchen“ mei¬ 
stern können. 


Etwas Gedankenahrobatik vorher 

Es wäre von mir aber, so glaube ich, 
nicht fair, Ihnen einfach die Lösung 
anhand des Programmes vorzule¬ 
gen. Deshalb will ich Ihnen meine 
Gedankengänge, die mich zur Lö¬ 
sung des Problemes brachten auf¬ 
zeigen. Auch hier erfahren Sie wie¬ 
der einiges über Ihre Disketten. 
Bereits im ersten der Grundlagenar¬ 
tikel hatte ich erwähnt, daß jeder 
Fileeintrag im Inhaltsverzeichnis 32 
Bytes belegt. Erinnern Sie sich 
noch? Noch nicht erfahren hatten 
Sie aber wo diese Informationen auf 
der Diskette stehen. Je nach Format 


ist dies unterschiedlich. Trotzdem 
ist die Kurzantwort sehr einfach: 
Diese Informationen sind in den er¬ 
sten vier verfügbaren Sektoren zu 
finden. Im Falle einer Data-only- 
Diskette heißt dies, Spur 0, Sektor 1 
bis 4. 

Beim Systemformat aber: Spur 2, 
Sektor 1 bis 4. 

Damit Sie sich dies nun näher anse- 
hen können, sollten Sie sich zu¬ 
nächst einmal die Maschinenrouti¬ 
ne mittels eines Basicteiles so aus¬ 
bauen, damit Sie sich dies näher 
betrachten können. Hierzu brau¬ 
chen Sie lediglich das Basic-Pro- 
gramm „Readsecl“ abzutippen und 
zu starten. Berücksichtigen Sie da¬ 
bei aber, daß beim Programmstart 
auf der in das Laufwerk eingelegten 
Diskette das Programm „SECTOR- 
.BIN“ verfügbar sein muß. Außer¬ 
dem klappt es bei diesem Programm 
nur, wenn Sie eine Diskette im Da- 
ta-only-Format benutzen. Bei den 
weiteren Programmen sind dann al¬ 
le beiden Formate les- und schreib¬ 
bar. Readsecl ist nur ein kleines 
Programm für die weiteren Erklä¬ 
rungen. 

Nach dem Programmstart wird der 
Maschinencodeteil eingelesen. Da¬ 
nach werden Sie aufgefordert die zu 
untersuchende Diskette einzulegen. 
Haben Sie dies getan und dann eine 
Taste gedrückt, dann wird der erste 
verfügbare Sektor in den gewählten 
Buffer eingelesen. Anschließend 
wird der Inhalt des Buffers ausgele¬ 
sen und sowohl im Hexformat als 
auch in ASCII auf dem Bildschirm 
dargestellt. Lassen Sie beim ersten 
Male ruhig das Programm ganz 
durchlaufen. Beim zweiten Mal 
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sollten Sie nach Ausgabe der ersten 
„Bufferinhaltszeilen“ aber mittels 
der ESC-Taste stoppen. Denn nun 
wollen wir uns dieses Ergebnis et¬ 
was näher betrachten, um weitere 
Schlüsse ziehen zu können. Die an¬ 
deren Programme sind weit komfor¬ 
tabler, aber dieses Programm soll 
uns wirklich nur zur Veranschauli¬ 
chung und zu Erklärungen dienen. 
Deswegen fehlt ihm auch jeglicher 
Bedienungskomfort. Da ein File, 
wie schon bekannt, 32 Bytes des 
Directoryeintrages benötigt, ist die 
in dem kleinen Programm gewählte 
Bildschirmdarstellung ideal, um Er¬ 
kenntnisse zu erarbeiten. Zusätzlich 
wird durch das Programm nach je¬ 
dem Fileeintrag eine Trennungsli¬ 
nie erzeugt. Dies dient nur dazu um 
alles noch übersichtlicher zu ma¬ 
chen. 

So ist ein Fileeintrag codiert 

Die erste Hexzahl, die Sie auf dem 
Bildschirm sehen, ist vermutlich 
„00“ oder „E5“. Dieses erste Byte ist 
die User-Nummer. Falls Ihnen 
„Usernummer“ unbekannt ist, se¬ 
hen Sie doch bitte im Handbuch 
nach. Bei „&E5“ handelt es sich um 
ein „gelöschtes“ File. Die wirkli¬ 
chen Usernummern können nur 
zwischen 0 und 15 liegen. Ist an 
dieser Stelle aber ein Wert ungleich 
E5 und größer 15, dann hat jemand 
an diesem Eintrag manipuliert! 
Durch derartige Spielereien können 
Einträge oder auch natürlich die zu 
diesen gehörenden Files selbst, auf 
die vielleicht direkt zugegriffen 
wird, vor den normalen Blicken 
und auch vor dem „Löschen“ ge¬ 
schützt werden. 

Anschließend kommen 11 Hexzah¬ 
len welche die ASCII-Werte des Fi¬ 
le-Namens und der „Extension“ 
darstellen. Wie Sie sich überzeugen 
können, gibt es dazwischen keinen 
Punkt, sondern Name und Extend 
werden unmittelbar hintereinander 
abgespeichert. 

Die nächste Hexzahl gibt Auskunft 
darüber, ob das File länger als 
16 KB ist und sich aus diesem Grun¬ 
de über mehrere Einträge erstreckt. 
Es ist die Directory-Eintragsnum¬ 
mer. Im Falle von „00“ ist es der 
erste Eintrag. Im Falle von „01“ der 
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zweite usw. Die nächsten beiden 
überspringen wir nun kurz. Die letz¬ 
te Zahl der ersten Zeile gibt die An¬ 
zahl der für das File benötigten Re¬ 
cords wieder. (Ein Record sind 128 
Bytes, dies stammt noch aus den 
Urzeiten von CP/M!) 

Wenn Sie diesen Wert mit 128 mul¬ 
tiplizieren, dann haben Sie die Län¬ 
ge die das File auf der Diskette be¬ 
legt. Steht an dieser Stelle der Wert 
&80, dann gibt es noch einen weite¬ 
ren Teil dieses Files. In diesem Fal¬ 
le gibt es dann mindestens einen 
weiteren Fileeintrag mit dem glei¬ 
chen Namen, dessen zwölftes Byte 
dann keine Null, sondern eine „01“ 
oder höhere Nummern, je nach An¬ 
zahl der Einträge, beinhaltet. Die 
Bytes 15 bis 31 enthalten die Block¬ 
nummern, über die das Programm 
auf der Diskette verteilt ist. Nun 
kommt etwas ganz wichtiges! Ein 
Block sind immer zwei aufeinan¬ 
derfolgende Sektoren! Aufgrund 
dieser Informationen wissen Sie 
nun auch, weshalb ein Programm 
immer nur „ganze“ Kilobytewerte 
als Länge hat. Halbe Blöcke in die¬ 
sen Einträgen (dies würde einem 
Sektor entsprechen) gibt es nicht im 
Inhaltsverzeichnis. Selbst wenn al¬ 
so ein Programm nur ein paar Bytes 
umfaßt, werden dadurch auf der 
Diskette zwei (!) Sektoren belegt. 
Dieses Wissen benötigen wir später 
nochmals. Nun wissen Sie prinzi¬ 
piell aber eigentlich alles, was für 
die Erstellung eines Programmes, 
um den eingangs erwähnten Leser 
aus der Patsche helfen zu können, 
notwendig ist. 

Da das in diesem Heft abgedruckte 
Programm „Reader“ aber noch weit 
mehr kann, als bisher erwähnt, ist 
es auch für Leser interessant, die 
keine Eproms brennen wollen. 
Denn es gibt noch einige weitere 
Informationen preis! Das im Heft 
abgedruckte Programm akzeptiert 
auch Systemformat und ist ausrei¬ 
chend kommentiert, deshalb unter¬ 
bleibt die genaue Erklärung. 

Die Bedienung von READER 

Zur Bedienung aber noch ein paar 
Sätze. Nach dem Programmstart er¬ 
halten Sie einige Informationen 
über das Programm selbst. Da das 


Programm feststellt, daß im ersten 
Byte des Maschinenprogrammberei¬ 
ches noch keine 58 steht, wird der 
Maschinenteil erst geladen. 
Daraufhin werden Sie aufgefordert, 
die zu untersuchende Diskette ein¬ 
zulegen und eine Taste zu drücken. 
Durch einen kleinen Trick erkennt 
das Programm das Diskettenformat 
und liest die vier entsprechenden 
Directorysektoren ein. 

Danach wird Ihnen das komplette 
Verzeichnis aller Fileeinträge aus¬ 
gegeben. Ein „+“ hinter dem jewei¬ 
ligen Extend zeigt an, daß das File 
gültig ist. Ein signalisiert, daß 
dieses File gelöscht ist. Dabei ist 
nun folgendes von großer Wichtig¬ 
keit: Beim Löschen mit ERA wird 
nur die User-Nummer auf &E5 ge¬ 
setzt und dadurch auch die zugehö¬ 
rigen Blöcke freigegeben. Das Pro¬ 
gramm selbst ist aber noch da, wenn 
noch nicht neu auf diese Diskette 
geschrieben wurde. Im Programm 
„FRETTER“ des nächsten Kapitels 
wird dies ausgenützt. 

Denken Sie deshalb bitte immer 
daran, wenn Sie Disketten weiterge¬ 
ben und nicht wollen, daß plötzlich 
jemand über Ihre Programme oder 
Daten verfügt. Wie schnell diese zu¬ 
rückgeholt sind, können Sie bald 
selbst sehen. Nach der Ausgabe al¬ 
ler Fileeinträge werden Sie aufge¬ 
fordert, eine Filenummer einzuge¬ 
ben, wenn Sie mehr darüber wissen 
wollen. Damit ist die in Klammer 
stehende Hexadezimalzahl gemeint, 
die gleichzeitig auch die laufende 
Nummer im Directory-Eintrag dar¬ 
stellt. 

Nachdem Sie eine entsprechende 
Nummer eingegeben haben, erfah¬ 
ren Sie Usernummer, die benutzten 
Blöcke, die Verteilung über die Sek¬ 
toren usw. Nun können Sie auswäh¬ 
len, ob Sie andere Einträge ansehen 
wollen, oder ob dieses File geladen 
werden soll. Das Einladen eines Fi¬ 
les kann nun z. B. zu Programmier¬ 
zwecken geschehen. Aber auch an¬ 
dere Gründe für einen derartigen 
Ladevorgang kann es geben. Z. B. 
Retten von teilweise schon über- 
schriebenen Files, wenn der FRET¬ 
TER nicht mehr in der Lage ist alles 
korrekt zurückzuholen und noch 
weitere Gründe. 

Probieren lohnt sich... 

Lothar Miede! 
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Listing : Reader 


100 'READER (c) by LM 
110 ' 

120 MODE 2:MEMORY &2FFF:PRINT"Programm: READER 
130 ' 

140 PRlNT"Dieses Programm liest alle Fi 1e-Eintraege in einen Buffer ab &3000. 
150 PRlNT"Danach koennen weitere Informationen ueber die Eintraege abge- 
160 PRINT"rufen werden. Dies betrifft z.B. die User-Nummer, die File-Namen 
170 PRINT H und die Bioecke, ueber die das jeweilige File verteilt ist. 

180 PR1NT"Ansch1iessend kann das File eingelesen werden, um z. B. fuer 
190 PRINT”Untersuchungen oder fuer einen 'Eprommer' die Daten im Speicher 
200 PRlNT"stehen zu haben. 

210 PRINT n Die Bufferadresse wurde mit i/3000 gewaehlt, da ein handelsueblicher 
220 PRINT"EPROMMER diese Bufferadresse benoetigt. 

230 PRlNT n Die Maschinencoderoutine SECTOR muss als BinaerfiJe vorliegen! 

240 PRINT:PRINT n Bitte eine Taste druecken":CALL &BB06:CLS 
250 ’ 

260 • 

270 'Adressen fuer Maschinenprogramm 

280 aktdrivemc=&A702:befehlmc-&A622:buffermc=&A629:drivenmc=&A626 
290 formsemc=&A628:trackmc=&A627:mcstart=&A600 
300 ' 

310 buffer$= n 3000":' Beginn des Einlesebereiches 

320 • 

330 DIM track(16), sector(16):' maximal 16 KB 

340 ' 

350 1F PEEK1&A600) = 58 THEN 380 

360 LOAD"sector.bin", &A600:' Maschinencode einiesen 

370 f 

380 PRINT"Bitte die entsprechende Disk einlegen und Taste druecken":CALL &BB06 
390 ' 

400 'Dieser kleine Trick hilft das Format zu erkennen 
410 OPENOUT"dummy n :CLOSEOUT:drive=PEEK(aktdri vemc) 

420 ' 

430 'je nach Drive das entsprechende Format abholen 

440 IF drive = 0 THEN form = PEEK(&A89F)-1:' Diskformat drive 40 abholen 
450 IF drive = 1 THEN form - PEEK(&A8DF)-1:' Diskformat drive 40 abholen 
460 ' 

470 'Den durch das Format bedingten Offset festlegen 
480 IF form =&C0 THEN offset =0:fo$= n Data-Only-Format 
490 IF form =&40 THEN offset =2:fo$="Systemformat 
500 IF offset = 2 THEN track =2 
510 ' 

520 'Werte fuer Bufferadresse berechnen 

530 bufflow=VAL("&"+R/GHTS(buffer$, 2)):buffhigh=VAL("&"+LEFT$(buffer$,2)) 

540 ' 

550 r *x****##**x*#***#*#**#«****###xx*xx#x*«xx* 

560 'x Komplettes Inhaltsverzeichnis einiesen x 
570 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
580 sector = sector +1 

590 GOSUB 1800:' Sector einiesen 

600 ' 

610 ' Falls Sektor = 4, dann ist komplettes Inhaltsverzeichnis eingelesen 
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620 IF sector=4 THEN 710 
630 ' 

640 'Buffer um 2*256 = 512 Bytes erhoehen 
650 buffhigh=buffhigh+2:G0T0 580 
660 ' 

670 >****************************** 

680 '* Nun Auswertung und Ausgabe * 

690 '****************************** 

700 ' 

710 lesezeiger =VAL( n &"+buffer$):CLS 

720 PRlNT"Verzeichnis der Fi 1e-Eintraege ( + =gueltig/~ =geloescht)":PRINT 

730 blcnt=0:filename$ =nn 

740 usernummer=PEEK(lesezeiger) 

750 IF usernummer=&E5 THEN file$=" File geloescht 

760 IF usernummer<&16 THEN file$=" + " 

770 ' 

780 ' File-Namen holen 

790 FOR i = lesezeiger+1 TO lesezeiger+12 
800 z$=CHR$(PEEK(i)) 

810 ' 

820 ' evtl, gesetzte Bits ausblenden 

830 IF ASC(z$)>128 THEN z$=CHR$(ASC(z$)-64):GOTO 830 

840 filename$=fiIename*+z$ 

850 NEXT i 

860 fiiename$=fiIename$+file$ 

870 lesezeiger =Iesezeiger+32 
880 ' 

890 'Pruefung ob letzter File-Eintrag 

900 IF LEFT$ (fi1ename$,1)=CHR$(101) THEN fz=65:G0T0 940 
910 fz=fz+l :PRINT fi lename$; n CHEX$(fz, 2) ") ”i 
920 fiIename$= nn 
930 ' 

940 IF fz<64 THEN 740 
950 ' 

960 ****************************** 

970 '* Alle Eintraege ausgegeben * 

980 '***************************** 

990 ' 

1000 PR1 NT'.PRl NT: INPUT" Informationen ueber welches File ”;f$ 

1010 f$="& n +f$:fz=VAL(f$):fiIename$= n " 

1020 ' 

1030 lesezeiger=MAL( "& n +buffer$)*(fz-1)*32 
1040 ' 

1050 usernummer=PEEK(lesezeiger) 

1060 ' 

1070 'Namen holen 

1080 FOR i = lesezeiger+1. TO 1esezeiger+12 
1090 z$=CHR$(PEEK(i)) 

1100 IF ASC(z$)>128 THEN z$=CHR$(ASC(z$)-64):GOTO 1100 
1110 filename$=filename$+z$ 

1120 NEXT i 
1130 ' 

1140 CLS:PRlNT"Informationen ueber : "fiIename$ f i"Eintrags-Nr. ’ "fz:PR!NT 
1150 FOR i =0 TO 16:track(i)=0:sector(i)=0:NEXT 
1160 1esezeiger=Iesezeiger+12:dirnum=PEEK(Iesezeiger) 
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1170 1esezeiger = 1esezeiger+3:records=PEEK(]esezeiger) 

1F80 1esezeiger=1esezeiger+1 
1190 9 

1200 PRlNT"User-Nummer: "usernummer;" Directory-Eintrags-Nummer: "dirnum:PRINT 
1210 PRINT"Das File ist ueber folgende Bioecke verteilt: ":PR1NT 
1220 pw=PEEK(1esezeiger) 

1230 1F pw=0 THEN PRINT: GOTO 1290 
1240 1F pw=229 THEN PRINT: GOTO 1290 
1250 PRINT HEX$(pw,2), ;:blcnt=blcnt+l 
1260 sector(blent)=pw 
1270 lesezeiger=lesezeiger+l:GOTO 1220 
12Q0 9 

1290 PRlNT:PRlNT"Dies entspricht folgenden Track - u.-Sector-Nummern (T,S/T,S):" 
1300 ges$="":FOR i = 1 TO 15:1F sector (i)=0 THEN i=16:G0T0 1390 
1310 9 

1320 9 ***x*****************x************************ 

1330 9 Tracks und Sectoren aus Block-Nummer berechnen 
1340 *********************************************** 

1350 b=sector(i) 

1360 bn= (b*2+offset*9) track=FlX(bn/9) :sector=bn-track*9 

1370 GOSUB 1490:PR INT track;", "sector"/";:GOSUB 1540:sector =sector+l 

1380 GOSUB 1490: PR INT track sector f ; :GOSUB 1540 

1390 NEXT i: PR INT 

1400 9 

1410 PRlNT:PRlNT"Bytes 1t. Eintrag : "records*128:PR!NT 

1420 PRlNT:PRlNT"das sind "bient" *1 K, und entspricht "records" Records." 

1430 PR INT:PRINT"1nfos ueber anderes File (j/n) ?" 

1440 a$=LOVER$UNKEY$):lF a$="" THEN 1440 ELSE 1F a$="n" THEN 1560 
1450 IF a$<> "j" THEN 1440 
1460 fz=0:GOTO 710 
1470 9 

1480 9 bei Berechnung Korrekturen vornehmen 
1490 IF sector >9 THEN sector=l:track=track+l 
1500 IF sector -0 THEN sector=9:track=track-l 
1510 RETURN 
1520 9 

1530 9 String fuer spaeteres einiesen zusammenbauen 

1540 t$=HEX$(track,2):s$=HEX$(sector,2):ges$=ges$+t$+s$:RETURN 

1550 9 

1560 PRINT:PRINT"Sol1 dieses File geladen werden ? 

1570 a$=LOUER$(INKEY$):IF a$="" THEN 1570 
1580 IF a$<>"j" THEN 1750 
4590 9 

1600 9 File wird ab Bufferbeginn -Sector fuer Sector- eingelesen 
1610 PR INT: PR INT" Jetzt lade ich: 

1620 bufflow=VAL("&"+RlGHT$(buffer$,2)) :buffhigh=VAL("S<"+LEFT$(buffer$,2)) 

1630 9 

1640 9 ******#**#*x**#****##******#******#*****#***# 

1650 9 * String wieder zerlegen und Einlesevorgang * 

1660 9 #******************************************** 

1670 FOR i = 1 TO LEN(ges$) STEP 4 
1680 g$=MID$(ges$, i,4):PR INT g $, 

1690 track=VAL("&"+LEFT$(g$,2) ) : sector = VAL( "8t"+RIGHT$ ( g$, 2) ) 

1700 GOSUB 1800:buffhigh=buffhigh+2 
1710 NEXT i :PRINT:PRINT 
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1720 ' 

1730 PRINT”Ihr Programm steht nun von "buffer$! 

1740 PRINT" bis "HEX$(buffhigh-l)+"FF im Speicher ! 

1750 END 
1760 ' 

1770 *********************************************************************** 
1780 '* Uerte fuer Einlesevorgang uebergeben und Maschinenroutine aufrufen # 

1800 secform =form+sector tPOKE (buffernte), buf f low^POKE (buf ferntc+1), buff high 
1810 POKE drivenmc, drive:POKE trackmc, track:POKE formsemc, secform'.CALL mestart 
1820 RETURN 


List i ng s READSECi 


100 '* READSECI * 

110 ' 

120 MODE 2.'MEMORY &8FFF:PRINT”Programm: READSECI 
130 ' 

140 'Adressen fuer Maschinenprogramm 

150 aktdrivemc=S/A 702:befeh 1 mc=&A622:buffermc=&A629:drivenmc=&A626 
160 formsemc=&A628:trackmc=&A627imcstart=StA600 
170 • 

180 buffer$="9000": , Beginn des Einlesebereiches 

190 form=&C0:' Code fuer Format 

200 ’ 

210 LOAD"sector.bin",&A600:' Maschinencode einiesen 

220 ' 

230 PRlNT"Bitte die entsprechende Disk einlegen und Taste druecken" 

240 CALL &BB06 
250 ' 

260 'Werte fuer Bufferadresse berechnen 

270 bufflow=VAL("&"+RIGHT$(buffer$,21):buffhigh=VAL("&"+LEFT$(buffer$, 2)) 
280 ' 

290 sector = sector +l:' Sektor 0 gibt es nicht ! 

300 GOSUB 440:' 1. Sector einiesen 

310 ' 

320 CLS:PRINT STRING$(80, "-"):’ Schirm loeschen + Strich ausgeben 

330 beginn=&9000:' Start fuer Auslesen festlegen 

340 • 

350 'Ausleseschleife 

360 FOR i = 0 TO 15:adr = i+beginn:wert=PEEK(adr): PRINT HEX$(wert, 2)!" "} 
370 IF wert <&20 THEN wert=32 

380 asci$=asci$+CHR$(wert):NEXT:PRINT" ";asci$:asci$="" 

390 z=z+16:IF z=32 THEN PRINT STRING$(80, ”-”):z=0 

400 IF adr < &9000+511 THEN beginn=beginn+16:G0T0 360 ELSE END 

410 ttHHUHHttHHHHHtXXJHHHtXiHHHtX##########***##*####********#***************** 
420 '# Werte fuer Einlesevorgang uebergeben und Maschinenroutine aufrufen * 
430 r ###x################4M########*#££************************************ 
440 seeform =form^sector:POKE (bufferme), bufflow:POKE (buffermc+1), buffhigh 
450 POKE trackmc, track:POKE formsemc, secform'.CALL mestart:RETURN 
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Arbeiten mit Diskette (4) 


Wieder bauen wir auf die schon 
erworbenen Kenntnisse auf und 
schreiben nun ein Programm, über 
dessen Sinn Sie sich wahrschein¬ 
lich erst dann, wenn Sie es einset- 
zen müssen, richtig freuen können . 
Ich habe dem Programm den Na¬ 
men FRETTER (Abkürzung von 
Fileretter) gegeben, da er am deut¬ 
lichsten zeigt, was mit dem Pro¬ 
gramm erreicht werden kann. 

Sie können damit versehentlich 
gelöschte Files wieder zurückho¬ 
len, also retten. Voraussetzung ist 
allerdings, daß Sie nach dem 
Löschvorgang noch keine weiteren 
Files auf diese Diskette geschrie¬ 
ben haben, denn sonst ist die Ret¬ 
tung fraglich. 

Schon in unserem ersten Heft ha¬ 
ben wir ein Programm veröffent¬ 
licht, das diesen Zwecken dient. 
Hierbei durften die Files (Program¬ 
me) aber nicht länger als 16 KB sein. 
Außerdem kann dieses Programm 
nur unter CP/M eingesetzt werden. 
Mit dem zu diesem Artikel gehören¬ 
den Programm ist diese Einschrän¬ 
kung nicht mehr gegeben, denn je¬ 
der Fileeintrag kann direkt bearbei¬ 
tet werden. 

Ein Plädoyer für BASIC 

Außerdem wird mit diesem Pro¬ 
gramm (wie auch mit vielen ande¬ 
ren dieses Heftes) ganz klar aufge¬ 
zeigt, was mit Basic, unterstützt 
durch Maschinensprache, möglich 
ist. 

Mir darf niemand erzählen, daß Ba¬ 
sic eine veraltete oder schlechte 
Programmiersprache sei. Egal ob 
„Turbo-Fortran“, „Quick C“, „Maxi- 
PL“, „XZ-Pascal“, „Forth XX“ oder 
wie auch immer eine Hochsprache 
heißt, derjenige, der seinen Rech¬ 
ner kennt und Maschinensprache 
beherrscht, programmiert je¬ 
den „Hochsprachenprogrammierer“ 
auch mit Basic in „Grund und Bo¬ 
den“, wenn er Maschinensprache- 
module zur Basicunterstützung ein¬ 


setzt. Dies soll Sie aber nicht davon 
abhalten, auch andere Program¬ 
miersprachen zu erlernen und ein¬ 
zusetzen, denn auch diese haben ih¬ 
re Vorteile und Vorzüge. 

Daß aber von „Sprachumsteigern“ 
immer mitleidig auf die etwas „zu¬ 


rückgebliebenen“ Basicprogram- 
mierer herabgesehen wird, das soll¬ 
te eigentlich nicht sein! Schließlich 
war es vor allem Basic, das zu dieser 
enormen Verbreitung der Computer 
(in privaten Händen) geführt hat. 
Und nur dadurch war der Sieges¬ 
und Einzug der Computer in fast 
jeden Haushalt möglich. 

Ich jedenfalls programmiere (neben 
anderen Hochsprachen) sehr gerne 
in Basic, vor allem weil es sehr 
schnell geht und trotz des verrufe¬ 
nen Spaghetticodes übersichtlich 
ist, wenn sich der Programmierer 
etwas Mühe gibt. Diejenigen die an¬ 
derer Meinung sind, bitte ich um 
Tolerierung meiner Ansicht. 
Beinahe hätte ich doch glatt verges¬ 
sen, zu erwähnen, daß bei einer der 
modernen Hochsprachen, nämlich 
bei Dr. LOGO unter CP/M 2.2, glatt 
vergessen wurde, eine Druckeraus¬ 
gabe einzubauen. 


Genug der „Frotzelei“ und Spaß bei¬ 
seite, wer andere, weil sie nur in der 
einen oder anderen Programmier¬ 
sprache programmieren können, 
nur schiefen Blickes würdigt, zeigt 
nur, daß er eine gehörige Portion an 
Intoleranz besitzt, aber nicht mehr. 


Zurück zum Thema. Mittels des be¬ 
reits bekannten (also unseres erar¬ 
beiteten) Maschinensprachemoduls 
und einem weiteren Basicteil ha¬ 
ben Sie die Möglichkeit, jedes Ihrer 
versehentlich gelöschten Disketten¬ 
files wieder für gültig zu dekla¬ 
rieren. 

Änderung der User-Nummer = 
Löschung? 

Dies liegt ganz einfach daran, daß 
bei einer „Löschung“ durch ERA 
nicht wirklich gelöscht wird. Das 
einzige, was dabei verändert wird, 
ist die User-Nummer im Fileeintrag! 
Wie Ihnen ja bereits bekannt ist, 
können die User-Nummern zwi¬ 
schen 0 und 15 liegen. Bei Lö¬ 
schung eines Files geschieht nun 
nichts anderes als die Änderung 
dieser Nummer in &E5. Wird diese 
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Usernummer wieder auf einen „gül¬ 
tigen“ Wert gesetzt, ist das File wie¬ 
der da! Was geschieht, wenn Sie 
diesen Wert oberhalb 15 aber nicht 
mit &E5 belegen, können Sie durch 
eigene Experimente feststellen. Ich 
habe bisher nur feststellen können, 
daß dies äußerst interessante 
Aspekte eröffnet. Werden also die 
zusammengehörenden Fileeinträge 
auf eine „gültige“ Usernummer ge¬ 
setzt, dann ist eine Löschung rück¬ 
gängig gemacht. Das Programm 
selbst ist so übersichtlich in der 
Darstellungsweise, daß sich größere 
Erklärungen hierzu erübrigen. Auf 
einen kleinen Trick in diesem Pro¬ 
gramm will ich Sie aber doch auf¬ 
merksam machen. Die CPCs haben 
eine Firmware-Routine, die es er¬ 
möglicht invertierte Zeichendarstel¬ 
lungen zu bewirken. Diese Routine 
steht in Zeile 1270 und wird zur 
Anzeige der gültigen Files benutzt. 
Interessant ist für Sie aber auch, daß 


Sie bei Ihren bisher gekauften Pro¬ 
grammdisketten Files sehen kön¬ 
nen, die Sie bisher nicht sahen, 
bzw. die gegen Löschen geschützt 
waren. Dies kann außer an einer ma¬ 
nipulierten User-Nummer auch an 
gesetzten 7. Bits im File-Namen lie¬ 
gen. Gleiches gilt auch bei gegen 
Löschen geschützten Files. Sehen 
Sie sich dies ruhig etwas genauer 
an. Aber ändern Sie nichts an der¬ 
artigen Originaldisketten, denn der 
Programm Verlust kann die Folge 
sein! Daß Sie mit dem Programm 
FRETTER auch Files löschen kön¬ 
nen, dürfte auch klar sein, denn Sie 
brauchen die Usernummer nur auf 
&E5 setzen, dann ist es schon pas¬ 
siert. Die Bedienung des Program¬ 
mes selbst ist so einfach, daß sich 
dies aus dem Programmlauf selbst 
ergibt. Spielen Sie aber anfangs 
nicht unbedingt mit Ihren wertvoll¬ 
sten Disketten. Ein kleiner Fehler 
beim Abtippen des Programmes 


kann unangenehme Folgen haben. 
Nehmen Sie gerade beim „Üben“ 
eine wirkliche Übungsdiskette. 

Wichtig für 6128-Besifzer 

Zum Schluß noch ein Hinweis für 
CPC-6128-Besitzer, die außerdem 
noch den MAXAM angesteckt ha¬ 
ben. Bei mir gab es nur bei diesem 
Programm sporadisch auftretende 
Fehler bei einem zweiten Pro¬ 
grammlauf. Da dieser Fehler nur 
sporadisch auftrat, konnte ich den 
Grund hierfür noch nicht finden. 
Der Fehler machte sich insofern be¬ 
merkbar, daß nach Rückkehr aus 
dem Maschinenprogramm ein Syn- 
tax-Error gemeldet wurde. Die 
ROM-Select-Nummer hatte nach 
dieser Fehlermeldung den Wert 10. 
Am 464 konnte ich diesen „komi¬ 
schen“ Effekt nicht feststellen. 

Lothar Miedel 


Li s t ing i Fretter - Ein Programm zur Filerettung 


100 'ft#####*##*#################*####**##**###*****#******** 

110 f * FRETTER = Disk-FiIe-Retter fuer die CPC f s (c) by LM * 

120 r x##x####x#x#######£########*#######*#*#**************** 

130 ' 

140 MODE 2:MEMORY &9DFF:G0SUB 1270:PR1 NT"Programm: FILE-Retter":G0SUB 1270 
150 * 

160 ’Adressen und Werte fuer Maschinenprogramm 

170 aktdrivemc=&A702:befehlmc=&A622:buffermc=&A629:drivenmc=&A626 
180 formsemc=&A628:trackmc=&A627:befeh1=&84:mcstar t=&A600 
190 ' 

200 'Spaeter benoetigte Variable festlegen 
210 mi$= n - n :pl$=" +" :tr$=STRlNG$(79, 

220 » 

230 'Maschinenprogramm einiesen falls Pruefbyte nicht ok! 

240 adr=mcstart 

250 c=PEEK(adr) •* 'Pruefbyte holen (Maschinenprg vorhanden ?) 

260 IF c=58 THEN 300:'Sprung da Pruefbyte stimmt 
270 LOAD”sector. bin", &A600 
280 ' 

290 'Beginn des Bufferbereiches 
300 buffer$="9E00" 

310 ' 

320 PRINT:PRINT"Bitte entsprechende Diskette einlegen und Taste druecken" 
330 CALL &BB06 
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340 ' 

350 OPENOUT "dummy"tCLOSEOUT:CLS:’ pruefen, welches Diskformat 
360 drive=PEEK(aktdrivemc) 

370 IF drive = 0 THEN form -PEEK(&tA89F) -1:'Diskformat abholen und merken 
380 IF drive = 1 THEN form =PEEK(&A8DF)-1:’Diskformat abholen und merken 
390 IF form =&C0 THEN offset=0:fo$ s "Data-only" 

400 IF form =&40 THEN offset=2:fo$="CP/H oder Vendor 
410 ' 

420 '****************************************** 

430 '* eigentlicher Start und Uiedereinsprung * 

440 ******************************************* 

450 'Werte fuer Bufferadresse berechnen 

460 buffiow= VAL ("&"+RIGHT$(buffer$, 2)) :buffhigh= VAL ( "&"+LEFT$(buffer$, 2) ) 
470 sector=0:IF flag=l THEN befehl=&85:f1ag=0 
480 ' 

490 ********************************************************** 

500 '* Komplettes Inhaltsverzeichnis einiesen oder schreiben * 

510 ********************************************************** 

520 sector = sector +1 
530 track-offset 

540 GOSUB 1210:' Sector einiesen oder schreiben 

550 ' 

560 ' Falls sector = 4, dann ist das Inhaltsverzeichnis komplett 
570 IF sector=4 THEN 650 
580 ' 

590 buffhigh=buffhigh+2:G0T0 520 
600 ' 

610 '****************************** 

620 '* Nun Auswertung und Ausgabe * 

630 '****************************** 

640 ' 

650 lesezeiger =VAL( n &"+buffer$):CLS 

660 PRINT n Verzeichnis der File-Eintraege (UN=Usernummer) 

670 PRINT " Format: ”;:GOSUB 1270:PRINT fo$:GOSUB 1270:PRINT 

680 PRINT n Name EXT EN UN Name EXT EN UN Name EXT EN UN"; 

690 PRINT" Name EXT EN UN": PR INT tr$ 

700 blcnt=0:fiIename$="" 

710 usernummer=PEEK( lesezeiger) 

720 IF usernummer=8tE5 THEN fi le$=mi$: ' File geloescht 

730 IF usernummer<&16 THEN fiIe$=pl$:' File nicht geloescht 

740 • 

750 ' File-Namen holen 

760 FÜR i = 1esezeiger+1 TO 1esezeiger+12 
770 z$=CHR$(PEEK(i)) 

780 fiIename$=filename$+z$ 

790 NEXT i 

800 lesezeiger =1esezeiger+32 
810 ' 

820 ’Pruefung ob letzter File-Eintrag 

830 IF LEFT$(filename$, 1)=CHR$(&E5) THEN fz=65:G0T0 910 
840 fz=fz+l 
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850 IF file$=pl$ THEN GOSUB 1270:' File gueltig deshalb Text invertieren 

860 PRINT LEFT$(filenane$,8)1 " "}:PR INT RIGHT$(filenamet, 4)S 

870 PRINT " "HEX$(fz, 2)1:PR INT " "HEX$(usernummer , 2)" "1 

880 IF file$-pl$ THEN GOSUB 1270:' File gueltig deshalb Text invertieren 

890 PRINT" "1:filename$="" 

900 ' 

910 IF fz<64 THEN 710: 'noch keine 64 Directory-Eintraege 
920 PR1NT:PRINT tr$ 

930 ' 

940 '***************************** 

950 '* Alle Eintraege ausgegeben * 

960 '***************************** 

970 ' 

980 PRINT:INPUT"Eintragsnummer (EN) des zu rettenden Files (0=ende): ";f$ 
990 f$=LOUER$(f$):IF f$="0" THEN END 
1000 f$="&"+f$:fz=VAL(f$):fi1enaae$= H " 

1010 ' 

1020 lesezeiger=VAL("&"+buffer$)+(fz-1)*32 
1030 ' 

1040 usernummer=PEEK(Iesezeiger): merker =1esezeiger 
1050 ' 

1060 'Namen holen 

1070 FOR i = lesezeiger+1 TO 1esezeiger+12 
1080 z$=CHR$(PEEK(i)) 

1090 IF ASC(z$)>128 THEN z$=CHR$(ASC(z$)-64):GOTO 1090:' Gesetzte Bits raus 
1100 filename$=fiIename$+z$ 

1110 NEXT i 
1120 ' 

1130 CLS:PRINT"Gerettet werden soll : "filename$, f 

1140 PRINT"Eintrags-Nr. : "fz:PRINT 

1150 INPUT"Usernummer"lusernummer 

1160 POKE merker,usernummer 

1170 fz=0 

1180 flag=l:GOTO 450 
1190 ' 

1200 ’******************************************************************** 
1210 seeform =form+sector:POKE bufferme, buff low:POKE (buffermc+l),buffhigh 
1220 POKE drivenmc,drive:POKE trackmc, track:POKE formsemc,seeform 
1230 POKE befehlmc,befehl:CALL mestart: RETURN 
1240 ' 

1250 '********************************************************** ********** 
1260 ' Schrift invertieren 
1270 CALL &BB9C:RETURN 
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Arbeiten mit Diskette (5) 


In diesem Teil der Grundlagenarti- 
kel über die Floppy gehe ich auf 
ein besonders heikles Thema ein. 
Nämlich auf das Thema Pro¬ 
grammschulz. Viele Hersteller von 
Software versuchen, Ihre Produkte 
vor dem Einblick fremder Augen 
zu schützen. Die Gründe hierfür 
sind mir bestens bekannt. 

Auch ich habe eine nicht gerade 
gute Meinung von Personen, die 
mit der Arbeit anderer versuchen, 
Geschäfte zu machen. Was ist aber 
mit demjenigen, der sein Pro¬ 
gramm mit dem CPC-Schutz verse¬ 
hen hat und vergaß, eine offene 
Kopie abzuspeichem? Diesen CPC- 
Besitzem soll mit dem zu diesem 
Artikel gehörenden Programm ge¬ 
holfen werden. Aber vor allem 
auch andere Punkte bezüglich 
Softwareschutz und Copyrights 
werden angesprochen. Ein wirk¬ 
lich „heißes” Thema. 

Und deshalb zählen auch solche 
Informationen zu den Grundlagen. 

Einmal abgesehen von der Compu¬ 
terei, zeigt die Geschichte der Evo¬ 
lution, daß nur durch Kopie guter 
Eigenschaften ein Weiter- oder Fort¬ 
bestand gesichert ist. All dies trifft 
eigentlich für alle Lebensbereiche 
zu. Es wäre ja auch unsinnig, jedes¬ 
mal das „Rad“ neu erfinden zu wol¬ 
len. Andererseits aber ist es sicher¬ 
lich das gute Recht der Hersteller 
und Ersteller von Produkten, für die 
geleistete „Arbeit“ auch gebührend 
entlohnt zu werden. Dies gilt auch 
für die Hersteller von Soft- und 
Hardware. 


Eine unbefriedigende Situation 

Durch Copyrights wird versucht, 
Mitbewerbern den Weg zu fremden 
„Früchten“ zu verwehren. In man¬ 
chen Fällen aber nimmt dies For¬ 
men an, die leider zum Nachteil der 
eigentlichen Kunden ist. 

Wenn es so weitergeht, wie es im 
Augenblick aussieht, dann unterlie¬ 
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gen irgendwann sogar einzelne 
simple Programmroutinen einem 
Copyright, weil ein guter Sachver¬ 
ständiger in diesen irgendwelche 
außergewöhnliche geistige Leistung 
„entdeckt“. Kopiert wurde immer 
und wird es immer werden. Im Fal¬ 
le der Computer eben manchmal 
auch zum Schaden der Software¬ 
häuser. Andererseits aber gibt es das 
schon fast klassische Beispiel des 
Programmes WORDSTAR, dem 
wohl meistkopierten Anwenderpro¬ 
gramm für Mikrocomputer. Trotz al¬ 
ler Kopien, war und ist der Verkauf 
dieses Programmes ein „Bombenge¬ 
schäft“. 

Deswegen gleich einmal ein paar 
Takte zum Thema „Raubkopierer“. 
Ich persönlich zähle zu den Raub- 
kopierern eigentlich nur diejenigen, 
die dies tun um Software an denen 
sie keine Rechte besitzen, weiterzu¬ 
verbreiten. Egal ob mit oder ohne 
Gewinn. Solange jemand - für sich 
- nur „Arbeitskopien“ von Program¬ 
men macht, die er legal erworben 
hat, sehe ich eigentlich keine straf¬ 
bare Handlung. Die rechtliche Si¬ 
tuation ist aber viel komplizierter! 
An ein paar Beispielen will ich er¬ 
läutern, was ich damit meine und 
weshalb Sie sich - zu Ihrem eigenen 
Schutz - auf dem neuesten Stand 
der Dinge halten sollten. Da die 
Fachpresse laufend hierüber berich¬ 
tet, haben Sie die Möglichkeit 
hierzu. 

Lesen Sie weiter, welche Auswüch¬ 
se die ganze Copyrightsituation 
„treibt“. 

Manche Softwarehersteller erlau¬ 
ben nur eine Arbeitskopie. Andere 
gehen soweit, eine Arbeitskopie 
durch Schutzmaßnahmen, die nicht 
jeder umgehen kann, überhaupt 
nicht zuzulassen. Schlimm finde 
ich auch, daß in manchen Verkaufs¬ 
bedingungen steht, daß das erwor¬ 
bene Programm nur auf einem ein¬ 
zigen Rechner eingesetzt werden 
darf. Stellen Sie sich bitte einmal 
vor, Sie kaufen eine Schallplatte 
und diese dürfen Sie nur auf dem 
Plattenspieler abspielen, den Sie 


zum Zeitpunkt des Kaufes besaßen. 
Falls Sie zwei Plattenspieler besit¬ 
zen, was ist dann? Vielleicht haben 
Sie sogar in Ihrem Wochenend-Do- 
minizil einen weiteren Plattenspie¬ 
ler und dort dürfen Sie sich Ihren 
Lieblingssong ebenfalls nicht anhö¬ 
ren! Zurück zur Software. Was be¬ 
deutet dies eigentlich in dem Falle, 
daß Sie sich zu Ihrem CPC 464 auch 
noch einen CPC 6128 zulegen? Dür¬ 
fen Sie dann...? Oder Sie wollen ei¬ 
nem Bekannten, der sich wirklich 
nur informieren will, die Möglich¬ 
keit geben, sich einmal länger mit 
einem von ihm zum Kauf geplanten 
Programm zu beschäftigen? Das 
sind Punkte, die durch die Rechts¬ 
sprechung nicht voll geklärt sind. 
Ich weiß, daß die Hintergründe 
für derartige „Bestimmungsblüten“ 
schon einen tieferen Sinn haben. Es 
soll vor allem sichergestellt werden, 
daß große Firmen, die mehrere 
Computersysteme haben, auch für 
jedes System ein eigenes Programm 
kaufen sollen. Aber es ist oft noch 
schlimmer, denn manchmal können 
Sie auch lesen, daß Sie nicht das 
Programm, sondern nur die Nut¬ 
zungsrechte zum Betrieb auf einem 
Computer erworben haben. Können 
Sie nun diese Nutzungsrechte ver¬ 
schenken, weil Sie dieses Pro¬ 
gramm nicht mehr verwenden 
wollen? 

Wie sieht es aus, wenn Sie Ihren 
„alten“ Computer durch einen 
„Neuen“ ersetzen, dürfen Sie diesen 
Nachfolger mit den alten Program¬ 
men beglücken? Fragen über Fragen 
und in jedem Falle wäre — beim 
Auftreten eines Klägers - eine even¬ 
tuelle richterliche Entscheidung 
wahrscheinlich anders. Geht das 
nicht alles etwas zu weit? Sind hier 
nicht manche Bestimmungen völlig 
unsinnig? Betrachten wir das Ganze 
auch noch einmal von einer ande¬ 
ren Seite. Sie haben sich ein Pro¬ 
gramm gekauft, mit dem Sie Ihre 
Buchhaltungsaufgaben erledigen. 
„Fairerweise“ wurde Ihnen erlaubt, 
eine Arbeitskopie zu erstellen. 
Durch einen unglücklichen Zufall 
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wurde die Arbeitskopie unbrauch¬ 
bar. Da Sie aber das Original besit¬ 
zen, kein Problem. Original aus dem 
feuer-, einbruchs- und erdbeben¬ 
sicheren Panzerschrank geholt, mit 
einem Doppellaufwerk die Erstel¬ 
lung einer neuen „Arbeitskopie“ 
eingeleitet. Wenn Sie nun Pech ha¬ 
ben, kann Ihnen dasselbe passieren, 
wie ich es schon erlebt habe: Strom¬ 
ausfall! Dies muß nun nicht heißen, 
daß das Original zerstört wurde, 
aber ich habe es leider schon zwei¬ 
mal persönlich erlebt. Beide Lese-/ 
Schreibköpfe waren im „Disketten¬ 
zugriff“, durch den Stromausfall 
ging die Elektronik in einen Undefi¬ 
nierten Zustand. Der Erfolg, es wur¬ 
de kurzfristig auf beide Disketten 
geschrieben. Original und die halb¬ 
fertige Kopie waren unbrauchbar. 
Da es sich bei mir um eigene Daten¬ 
disketten handelte, hatte ich nach 
dem Vater/Sohn/Enkel-Prinzip gear¬ 
beitet. Deswegen war es nicht so 
tragisch. Als der Strom wieder da 
war und ich festgestellt hatte, daß 
beide Disketten unbrauchbar waren, 
nahm ich die „Sohn“-Diskette. Den 
Kopiervorgang wieder gestartet..., 
und nun dürfen Sie schmunzeln... 
Seitdem bleiben meine Computer 
an gewittrigen Sommerabenden 
ausgeschaltet. Anmerken möchte 
ich aber noch, daß es kein CPC war, 
mit dem ich dieses Erlebnis hatte. 
Falls Ihnen aber ein derartiges Miß¬ 
geschick mit Programmdisketten 
passiert, müssen Sie nun, nur weil 
mehrere Kopien nicht erlaubt wa¬ 
ren, das gleiche Programm noch¬ 
mals kaufen? Ich hoffe nur, daß in 
der nächsten Zukunft eine Lösung 
im Sinne der Programm-Kunden ge¬ 
funden wird. Vielleicht kann dies 
auf ähnliche Weise wie bei den Mu¬ 
siktonträgern geschehen (GEMA- 
Gebühren o. ä.). Bis dies aber soweit 
ist, kann ich Ihnen nur empfehlen, 
passen Sie auf , daß Sie nicht durch 
Verstoß gegen Vorschriften oder Be¬ 
stimmungen in die Mühlen der Ju¬ 
stiz geraten. 

Auch ich muß nun aufpassen mit 
dem Programm PCOPY, denn es 
gibt Abmahnfirmen, die sich darauf 
spezialisiert haben, zum Beispiel 
gegen Anbieter von Backupsoftware 
vorzugehen, nur weil diese verges¬ 
sen haben, in der Anzeige darauf 
hinzuweisen, daß das angebotene 


Programm nur für Backups von 
Software erlaubt ist, deren Kopier¬ 
rechte man besitzt. „Beihilfe...“. Oft 
kommt es zwar nicht darüber dann 
zu einem Rechtsstreit, aber es sind 
seitens der Abmahnfirma Kosten 
angefallen, über die dann vielleicht 
ein Richter entscheiden muß. Des¬ 
halb weise ich nun ausdrücklich 
darauf hin, daß das Programm 
„PCOPY“ dieses Heftes nur zum Ko¬ 
pieren von Software benutzt wer¬ 
den darf, deren Rechte man besitzt. 

Save.^ame^p - ist dies sinnvoll 

Doch nun wieder zum CPC. Was die 
Entwickler der CPC-Firmware dazu 
bewogen hat, die Möglichkeit vor¬ 
zusehen, ein Basic-Programm zu 
„schützen“ wird mir vermutlich im¬ 
mer ein Rätsel bleiben. Vergessen 
diese in höchsten Regionen schwe¬ 
benden „Koryphäen“ tatsächlich, 
daß alles was für ein Programm er¬ 
forderlich ist, auch durch irgend¬ 
welche Programmteile lesbar sein 
muß? Oder glauben diese, daß sie 
soweit oberhalb des allgemeinen 
Wissens schweben, daß andere, die 
sich mit Computern beschäftigen 
nicht in der Lage sind innerhalb 
kürzester Zeit solche Schutzmecha¬ 
nismen zu beseitigen? Ich weiß es 
nicht, eines aber ist mir klar, die 
Programmierer des „protectet“- 
Schutzes von Locomotive Software 
hatten sicherlich nicht bedacht, wie 
einfach beim CPC 464 dieser Schutz 
umgangen werden kann. Mein Auf¬ 
ruf deswegen an Programmierer von 
Firmware, laßt diesen Unsinn und 
implementiert dafür lieber eine 
Hardcopy-Routine. Gute Software 
braucht nicht geschützt zu werden, 
denn diese wird in ausreichenden 
Mengen gekauft. Ich erinnere nur an 
Wordstar. Auch gut gemachte 
Handbücher nützen mehr als solche 
Spielereien. Der einzige Effekt, der 
wirklich mit einer Schutzeinrich¬ 
tung dieser Art erreicht wird, ist 
der, daß ein Anwender sich vor sich 
selbst schützt und irgendwann ein 
eigenes Programm vor sich selbst 
„versteckt“. Professionelle Software 
wird meist mit anderen Methoden 
geschützt. 

Nun wieder zum Sinne des Pro¬ 
grammes PCOPY. Auch mir ist es 


schon passiert, daß ich bei Spiele¬ 
reien ein Programm mit dem Zusatz 
„P“ geschützt habe, ohne vorher ei¬ 
ne offene Version abzuspeichern. 
Wollte ich nachträglich etwas am 
Programm ändern, gab es eigentlich 
keine „normale“ Möglichkeit mehr, 
dies zu tun. Nun ich habe ausrei¬ 
chende Kenntnisse um mir dann zu 
helfen. Was aber ist mit dem „ar¬ 
men“ Gelegenheitsprogrammierer, 
der den gleichen Fehler gemacht 
hat? Für den CPC 464 gibt es den 
wohl schon allgemein bekannten 
sogenannten „Readypatch“, der die 
Tatsache ausnutzt, daß der CPC 464 
ab und zu über sogenannte Indirec- 
tions arbeitet. Bei den Nachfolgern 
ist dies nicht ganz so leicht möglich. 



Aber auch diese Geräte haben die¬ 
sen Unsinn eingebaut. Deshalb also 
das Programm PCOPY. Allerdings 
habe ich das Programm so aufge¬ 
baut, daß die „unprotected“ Version 
auf die „Originaldiskette“ zurückge¬ 
schrieben wird. Eine Maßnahme, die 
ich für sinnvoll hielt. Für weiterhin 
i sinnvoll hielt ich es, das Programm 
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nur als Basicloader abzudrucken 
und kein dokumentiertes Assem- 
blerlisting mitzuliefern. Bitte haben 
Sie Verständnis dafür. 

Zur Bedienung gibt es nicht viel zu 
sagen. Sie brauchen nur das Pro¬ 
gramm zu laden und zu starten, 
dann führt es Sie selbst weiter. Er¬ 


schrecken Sie aber nicht, wenn der 
CPC nach Erledigung seiner Arbeit 
plötzlich einen Reset durchführt. 
Geben Sie nach dem Reset CAT ein, 
dann sehen Sie, daß das geschützte 
Programm mit dem Extend .bak und 
das neue Programm mit .bas im In¬ 
haltsverzeichnis steht. Ich habe al¬ 


lerdings noch eine kleine „Sicher¬ 
heitsmaßnahme“ eingebaut. Es kön¬ 
nen nur geschützte Basicprogram- 
me mit dem Extent BAS bearbeitet 
werden. 

Sie können es trotzdem mit anderen 
Extends versuchen, aber ich garan¬ 
tiere für nichts. Lothar Mi edel 


Listing s PCOPY 


100 ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
110 ' x PCOPY x 

120 r x Ein Programm um versehentlich mit 'p' abgespeicherte Programme x 

130 ' x wieder als normale Basicprogramme auf Di sc zurueckzuschreiben. x 

140 ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
150 ' 

160 MODE 2:MEMORY &9FFF:a=&A000:e=&A03D:zb=1000:e=e+l 

170 FOR i =a TO e:READ d$:lF LEFT$(d$, l) = n St n THEN flag =1 

180 1F (flag AND ps<>VAL(d$)) THEN PRlNT n Fehler in Zeile » zb+l:END 

190 IF (flag AND i=e) THEN 240 

200 IF flag THEN i=i-l:zb=zb+l:ps=0:d$= n ”:flag = 0:GOTO 220 
210 d$= n b"+d$:POKE i, VAL(dt) :ps=ps+VAL(d$) : 

220 IF i < e THEN NEXT i 
230 ' 

240 CLS: PR I NT n PCOPY wurde korrekt geladen ! ” :PRINT:PRINT 

250 PRINT n Bitte immer daran denken, dass Sie nur Software kopieren duerfen, 
260 PR1NT n wenn Sie auch die Rechte hierzu besitzen ! n :PRINT 
270 PRINT”Fal1s dies der Fall ist, geben Sie nun bitte 
260 INPUT n den Filenamen (ohne Extend!!) ein n ifi1ename$ 

290 IF LEN ( fi lename$)>8 THEN PR INT: PR INT CHR$(7) ; "Fehl er": PR INT: GOTO 270 
300 IF LEN(filename$) < 8 THEN fi1ename$=fiIename$+CHR$(32):GOTO 300 
310 • 

320 FOR i = 1 TO 8:P0KE &A016+i,ASC(MID$(fi1enamet, i, 1)):NEXT 
330 ' 

340 PRINT:PRINT"Bitte legen Sie nun die entsprechende Diskette ein ! 

350 PRINT n und druecken Sie eine Taste ! n :CALL &BB06:CALL &A000 
360 ' 

1001 DATA 06, 0C, 11,00, C0, 21,17, A0, CD, 77, BC, 21, 70,01, CD, 83, &059D 

1002 DA TA BC, CD, 7A, BC, C3,23, A0, 66, 72, 65, 74, 74, 65, 72,20,2E, &078F 

1003 DA TA 62, 61, 73,06,0C, 21,17, A0,11,00, C0, CD, 8C, BC, 21, 70, &0597 

1004 DA TA 01, ED, 5B, 6D, A 7, 3E, 00, CD, 98, BC, CD, 8F, BC, C7, &079B 
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Die Gewinner u nserer 
ComputeiSchau-Preisausschieiben! 


Verlosungsaktion 
„1 Jahr 

ComputerSchau“! 

Taschencomputer PC 1500A 

von Sharp: 

Siegfried Baller 
bei Zoeh 

Ringslebenstraße 2 
1000 Berlin 47 

Kurt Dankwart 
Reinhold Klügel Hof Nr. 37 
5140 Erkelenz 

Horst Werner Alfeis 
Farnweg 1 
3002 Wedemark 

J. Bausewein 
Bramsallee 39/IV 
2000 Hamburg 13 

Jochen Baumgärtner 
Hindenburgstraße 24 
8520 Erlangen 

Wolfgang Domres 
Heckenweg 25 
3006 Burgwedel 

Dieter Kasper 
Dipl.-Ing. 

Robert-Koch-Straße 36 
2800 Bremen 61 

Manfred Kretzschmar 
Dipl.-Ing. 

Sudewiesenstraße 50 
3014 Laatzen 

Eugen F. Breuninger 
Karwendelstraße 5 
8038 Gröbenzell 

Joachim Baatz 
Burkhardtstraße 4 
8501 Feucht 

Rolf Bräuker 
Am Kindergarten 29 
5840 Schwerte 

Hans Bernhard 
Langerstraße 2/1 
8000 München 80 

V. Süß 

Wiederholdstraße 22 
7000 Stuttgart 1 

Friedhelm Will 
Bahnstraße 30 
4174 Issum 1 


Oliver Volz 
Dusestraße 13 
7000 Stuttgart 80 

Norbert Hettich 
Gauchachstraße 14 
7715 Bräunlingen 

Ralf Schulze 
II. Parallelstraße 9 
4630 Bochum 1 

Franz Jaquet 
Am Buchet 10 
8035 Gauting 

Joachim Pöhlmann 
Meisenweg 37 
8526 Bubenreuth 

Manfred Wilimek 
Haimhauser Straße 7 
8000 München 40 

ComputerSchau 9/85 

1. Preis: 1 Schachcomputer 

der Fa. Heaener & Glaser AG 

Roland Kehlenbach 
Scherpenberger Straße 19 
4130 Moers 1 

Franzis-Buchautscheine: 

Peter Meusel 

Alte Marburger Straße 5 

6348 Herborn 

Gerd Nolden 
Albertstraße 90 
4000 Düsseldorf 1 

Bruno Marti 
Neubrückstraße 28 
CH-2555 Brügg (BE) 

Günter Fischer 
Feldstraße 13 
2081 Alveslohe 

Gerd Heydt 
Alter Stadtweg 47 
6602 Sbr.-Dudweiler 

Klaus Sperling 
Eversbuschstraße 188 
8000 München 50 

Wolfram Richter 
Zuckerberg 51 
5000 Köln 50 

Helmut Ramstötter 
Stutenanger 10 
8042 Oberschleißheim 


Gabriele Szklenar 
Rathausstraße 28 
7062 Rudersberg 

Stefanie Heibel 
Monumentenstraße 37 
1000 Berlin 62 
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Manfred Michels 
Knorrstraße 45 
8000 München 

Franzis-Buchautscheine: 

Peter Hufnagl 
Hospitalstraße 9 
6086 Riedstadt 1 

Christoph Windmöller 
Uhlandstraße 96 
4500 Osnabrück 

Astley Andersson 
Mattiasg 12B/I 
S-81500 Tierp 

Gerd Sommer 

Kerner Straße 4 

7120 Bietigheim-Bissingen 

Willi Blum 
Bohlstraße 9 
7430 Metzingen 

Max Bauer 
Adlerstraße 86 
8300 Landshut 

Uwe Petsch 
Billhorner Deich 50 
2000 Hamburg 28 

Axel Hengemühle 
Erdeihofstraße 17 
4600 Dortmund 15 

Heinz Weigelt 
Proschwitzer Straße 12 
8950 Kaufbeuren 2 

Christoph Nebel 
Erlenweg 7 
2358 Kaltenkirchen 
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Sony’s Computer zum Kennenlemen. 

Mit einem Sony Hit Bit kann man eir 
Zum Beispiel große Literatur und kl< 


Von Haus aus beste Daten. 

Jetzt ist die Gelegenheit beson¬ 
ders günstig, die Computerwelt 
kennenzulernen und dabei ver¬ 
borgene Talente zu fördern. Mit 
dem Sony Hit Bit kriegen Ihre Texte 
plötzlich ganz einfach Format. 

Und farbige Grafiken und Tabellen 
entstehen wie von selbst. Der 
Sony Hit Bit bringt alles mit, was 
man dazu braucht. 

HIT BIT 

Denn er funktioniert nach dem 
international festgelegten MSX- 
Standard. Das bedeutet Zugang 
zu allen Programmen und Zusatz¬ 
geräten wie Druckern oder 
Datenrecordern gleichen Stan¬ 
dards. Und eine beruhigende 
Zukunftssicherheit für Ihre Kauf¬ 
entscheidung. Was der Sony 
Hit Bit sonst noch alles auf dem 
Kasten hat, ganz kurz für die 
Kenner der Materie: Der HB-75 D 
ist ein Z 80 A-Computer mit 
deutscher Schreibmaschinen- 
Tastatur. Sein 64 K-Byte Arbeits¬ 
speicher erlaubt auch die Verwen¬ 
dung anderer Betriebssysteme 
wie z.B. MSX-Dos. 

Für spezielle 
ROM-gestützte 
MSX-Fro- 
gramme kann die gesamte 
Speichertiefe von 64 K zur Auf¬ 
nahme von Daten genutzt wer¬ 
den. Zusätzlich bietet der Sony Hit 
Bit einen 16 K-Byte großen Bild¬ 
speicher. Ein integriertes deut¬ 
sches Dateiprogramm, das 
spielend leicht Adressenlisten und 
Terminplanungen erstellen und 
verwalten hilft. Anwenderfreund¬ 
liche Sortier-, Such-, Transfer- 
und Druckroutinen. Und einen 
32 K-Byte MSX-Basic-lnterpreter, 
der das Erstellen eigener Pro¬ 
gramme mit Grafik und Sound auch 
ohne Kenntnisse des Betriebs¬ 
systems ermöglicht. Grafiken 
gibt der Hit Bit in 256 x 192 Bild¬ 
punkten und 16 verschiedenen 
Farben wieder. Der eingebaute 
Tongenerator mit 3 Tonausgän¬ 
gen und 1 Geräuscheffektgenera¬ 
tor hat einen Tonumfang von 
8 Oktaven. Eine 21polige RGB- 
Scartbuchse und eine 6polige 
DIN-AV-Buchse garantieren viel¬ 
seitigen und besten Anschluß an 
Fernseher und Monitor. Schnitt¬ 


MSX 




stellen für Audio-Cassetten- 
Recorder und Joystick, zwei MSX- 
Standard I/O-Interfaces und ein 
Druckerinterface sorgen für pro¬ 
blemlosen Anschluß an MSX- 
Peripheriegeräte. Das Hit Bit 
Zubehör umfaßt außer wichtigen 
Kabeln ein ausführliches MSX- 
Basic Programmierhandbuch, 
eine Einführung in MSX-Basic und 
Anleitungen zur Erstellung von 
Personenkarteien. 


Der Bitcorder SDC-500. 

Das kennen auch Computer¬ 
neulinge. Eine ganz normale 
Audio-Compact-Cassette. Zusam¬ 
men mit dem SDC-500 Bitcorder 
ergibt das einen von 3 Daten¬ 
speichern, die dem Sony Hit Bit 
als Langzeitgedächtnis dienen 
können. Der Bitcorder speichert 
große Datenmengen, ist beson¬ 
ders preiswert und leicht zu 
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fflenge machen 
3 Kunstwerke. 



Die Sony 3,5 Zoll-Micro- 
Floppy-Diskette. 

Noch schnellere Zugriffszeiten als 
der Bitcorder erlaubt ein beson¬ 
ders flexibles und handliches 
Speichermedium. Die millionen¬ 
fach bewährte, 90 x 94 mm kleine 
3,5 Zoll-Micro-Floppydisk. 



Anwender schätzen ihre kompak¬ 
ten Abmessungen, die hervor¬ 
ragende Zuverlässigkeit und 
Benutzerfreundlichkeit. Trotz des 
begrenzten Formats bietet 
die bespielbare Micro-Floppy 
OM-D 3440 eine Speicherkapa¬ 
zität von 500 K-Byte - genug 
Platz für ca. 100 Seiten Text. 



Der Micro-Floppydisk- 
Drive HBD-50 D. 

Das Laufwerk zur Micro-Floppy- 
disk. Angeschlossen wird es, wie 
bei Sony üblich, ganz einfach 
mit einem Griff. Das dazu notwen¬ 
dige Interface ist in eine Cartridge 
integriert, die wie ein Stecker 
in den dafür vorgesehenen Slot 
am Computer gesteckt wird. Mit 


dem kompakten Micro-Floppy- 
disk-Drive können Sie blitzschnell 
Programme,Texte usw. speichern 
oder laden. Eine weitere inter¬ 
essante Speichermöglichkeit 
bieten die Data-Cartridges HBI-55. 
Diese Halbleiterspeicher zeich¬ 
nen sich durch besonders schnel¬ 
len Datenzugriff aus. 


Die Sony ROM-Cartridges. 

Auch die besonderen Talente des 
Sony Hit Bit stecken in Cartridges. 
Eine besonders pfiffige und 
praktische Lösung. Einfach eine 
dieser Cartridges in den dafür 
vorgesehenen Slot am Computer 
stecken und ab geht's im Pro¬ 
gramm. Die rein elektronisch 
gespeicherten Informationen 
stehen sofort zur Verfügung. 

Zum Beispiel das Programm 
HBS-H003C Home Writer. Sie 
schreiben einfach drauflos - kor¬ 
rigiert wird später. 

Sortieren, Radieren, Einfügen/ 
Auslassen, alles geschieht auf 
Tastendruck. Verschiedene Papier¬ 
größen, Schriftgrößen und so¬ 
gar Förmvordrucke können 
gespeichert und einfach mit dem 
Cursor, einem beweglichen 
Pfeilsymbol, ausgewählt werden. 
Sony’s Home Writer nimmt Ihnen 
lästige Arbeiten ab und läßt 
mehr Zeit für das Wesentliche. 
Die Cartridge HBS-H001C ist 
besonders bei farbigen Grafiken 
gut in Form. Sie bietet eine 
Anzahl von phantasievollen Bildern, 
die im Format verändert und 
mit Schrift verschiedener Größe 
und Farbe versehen werden 
können. Das fertige Kunstwerk ist 
dann über den Sony Vierfarb- 
Plotter PRN-C 41D reproduzierbar. 


Weil oft der erste Eindruck 
der entscheidende ist, hat 
Sony einige sinnvolle Hit 
Bit-Pakete zusammen¬ 
gestellt. Damit ist der Spaß 
am Computern program¬ 
miert. Beim Schreiben und 
Malen. Aber auch beim 
Spielen und Lernen. Und 
überhaupt. 
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TEXT-PRO - Ein Tefl- 

verarbettungsprogramm 


Auch hier gilt , was wir schon beim 
Dateiverwaltungsprogramm ge¬ 
schrieben haben . Viele Leseran- 
und -rückfragen zeigten uns wie 
groß das Interesse an solchen Pro¬ 
grammen ist Deshalb auch hier ei¬ 
ne zweite Version eines Textverar¬ 
beiters . 

Eine der vielen Aufgaben, die mit¬ 
tels eines Computers erledigt wer¬ 
den können ist das „Ver-“ und „Be¬ 
arbeiten“ von Texten jeglicher Art. 
Für fast jeden Computer werden 
mehr oder weniger gute und teure 
Programme hierfür angeboten. 
Nichts gegen Profi-Programme vom 
Typ „Wordstar Version xx“. Diese 
sind hervorragend für denjenigen, 
der beruflich „textet“. Sie bieten 
Möglichkeiten, die für „Berufs¬ 
schreiber“ nicht nur komfortabel, 
sondern auch erforderlich sind. 
Aber für den „Gelegenheitsschrei¬ 
ber“ sind die meisten dieser Pro¬ 
gramme zu leistungsfähig und meist 
auch zu schwierig in der Bedie¬ 


nung. Wer hat denn schon Zeit, sich 
in tagelanger Einarbeitungszeit mit 
den Features eines „Profitexters“ 
auseinanderzusetzen? 

Selbst wenn man sich aber diese 
Mühe gemacht hat, eine Woche spä¬ 
ter hat man den größten Teil der 
Bedienung wieder vergessen. Um 
dann einen Brief zu schreiben, der 
in wenigen Minuten geschrieben 
sein sollte, steckt man mehr Zeit in 
die wiederholte Einarbeitung des 
Programmes. Deshalb haben Pro¬ 
gramme wie das nachfolgende 
durchaus ihren positiven Sinn. 
Aber auch für „Selbslprograminie- 
rer“ bietet ein derartiges Programm 
viele Anregungen und Tips. Des¬ 
halb nachfolgend ein weiteres Text¬ 
verarbeitungsprogramm für Ihre zu¬ 
künftigen Schreiben. 

Programm-Beschreibung 
zum Programm TEXT-PRO 

Das Programm TEXT-PRO ist ein 
Textverarbeitungsprogramm mit 


den Möglichkeiten des Erstellens, 
Änderns, Formatierens und Druk- 
kens von Texten. Weiterhin verfügt 
es über einige Editier-Hilfen, wie 
das Einfügen, Löschen und Kopie¬ 
ren von Zeilen. 

Ein Systemmenü sorgt für die opti¬ 
male Ausnutzung der Bildschirm¬ 
farben, der Disketten- sowie der Ta¬ 
pefunktionen. 

Gedruckt wird mit einem Schnei¬ 
der-Drucker NLQ401. Das Druckme¬ 
nü ist aber leicht an andere Drucker 
anzupassen. Die Hilfsfunktionen 
sind über eine Menüsteuerung 
leicht anzuwählen. Hier die Funk¬ 
tionen im Zusammenhang: 

Nach dem Starten: Zunächst wird 
abgefragt, ob man mit dem engli¬ 
schen Standard-Zeichensatz oder 
mit dem deutschen Zeichensatz ar¬ 
beiten möchte. Die Bildschirm- und 
Druckausgabe erfolgt dann mit dem 
gewählten Zeichensatz. 

Die weitere Menüsteuerung erfolgt 
mit den Cursortasten (rechts-links). 
Die COPY-Taste ist zu drücken, 
wenn man die entsprechende Funk¬ 
tion ausführen möchte. 

Im Editier-Mode erfolgt die Me¬ 
nüauswahl mit SHIFT- und den 
Cursor-Tasten. COPY hat die glei¬ 
che Funktion. 

Das Hauptmenü: Im Hauptmenü 
sind neben den Menüsprüngen (mit 
SHIFT- und den Cursor-Tasten und 
COPY) noch einige Sonderfunktio¬ 
nen über die Tastatur abrufbar. 

1. Die DEL-Taste behält ihre Funk¬ 
tion bei (löschen nach links). 

2. Die CLR-Taste behält ihre Funk¬ 
tion auch bei (löschen nach 
rechts). 

3. Die Cursor-Tasten behalten ihre 
normalen Funktionen. 

4. SHIFT und Cursor up scrollt den 
Text um 20 Zeilen nach oben. 

5. SHIFT und Cursor down scrollt 
den Text um 20 Zeilen nach 
unten. 
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6. Die TAB-Taste fügt ein Zeichen 
in die Textzeile ein (nach rechts 
über den Bildrand ragende Zei¬ 
chen werden gelöscht). 

7. Die RETURN-Taste geht mit dem 
Cursor in die nächste Zeile. 

Das Menüangebot: 

1. COPY - Die COPY-Funktion er¬ 
laubt es, Zeilen von einer Stelle 
des Textes zu einer anderen zu 
kopieren. 

2. EINF - Hier wird eine Leerzeile 
nach der angegebenen Zeilen¬ 
nummer erzeugt. 

3. LOES - Die Zeilen mit den ange¬ 
gebenen Nummern werden aus 
dem Text gelöscht. 

4. SUCH - 

a) Suchfunktion - Hier wird der 
Text nach einem bestimmten 
Begriff durchsucht. Wenn der 


Begriff gefunden ist, springt 
der Cursor auf diesen, 
b) Austauschfunktion - Im Text 
befindliche Worte können 
durch andere ersetzt werden. 

5. FORM - Formatieren des aktuel¬ 
len Textes auf eine bestimmte 
Breite. Worte werden nicht ge¬ 
trennt. 

6. DRUC - Das Druckmenü enthält 
zunächst eine Abfrage nach der 
Schriftart: Normal, Komprimiert, 
Fettdruck, Schmaldruck oder 
NLQ-Druck sind möglich. Dann 
wird nach der Druckausführung 
gefragt. Diese kann Normal, mit 
doppeltem Anschlag oder hervor¬ 
gehoben sein. Schließlich wird 
noch nach dem Zeilenabstand ge¬ 
fragt: Normal, Weit, Eng oder 
Sehr Eng sind möglich. 


Bemerkung: TEXT-PRO druckt 
immer nur ab der Cursor-Position 
abwärts. 

7. DISK - Unter diesem Menüpunkt 
kann ein bestehender Text gela¬ 
den oder abgespeichert werden. 
Außerdem kann auch die Ausga¬ 
be des Disketteninhaltsverzeich¬ 
nisses und die ERAse- und RENa- 
me-Befehle aufgerufen werden. 
Aber auch die Bildschirmfarben 
und die Kassettengeschwindig¬ 
keit können an dieser Stelle be¬ 
einflußt werden. Der Pfeil kann 
angesprungen werden, um ins 
Hauptmenü zu gelangen. 

8. NEU - Komplette Neu-Initialisie- 
rung des Programmes und Defi¬ 
nition eines neuen Textes. 

Jens Kriese/LM 
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220 PR1NT43, "Name des neuen Textes...>";:L1NE INPUT*3,i$ 

230 it=it+" ":namet-LEFTt(i$, 8) 

250 LOCATE #2,2,2:PRINT*2, "Text: "name$ 

260 x=200:ERASE t$:D!M t$(x):lin=l:FOR i=l TO 25:t$(i)=STRlNG$(76, " "):NEXT 
265 GOTO 830 

270 r - menue 

260 ON BREAK GOSUB 2310 
290 ON ERROR GOTO 1600 
300 CLS.'CLSn:PAPER 0:PEN 1 
310 RESTORE 4530:GOSUB 3120 
330 GOSUB 420 
340 IF me =2 THEN GOTO 1390 
350 IF me=8 THEN 200 
360 GOTO 330 

420 '- eingabe bei menue 

430 me=2 

435 LOCATEtl, me, 3:PRINT#1," "}CHR$(214)CHR$(215 )/ 

440 PRINT43, "Bitte waehlen Sie mit den Cursortasten und Copy." 

443 i$-INKEY$:FOR i=l TO 100:NEXT 

445 IF it=CHR$(243) AND me<43 THEN mea=me:me=me+6:GOTO 470 

446 IF i$-CHRt(242) AND me>7 THEN mea=me:me=me-6:G0T0 470 

447 IF it=CHRt(224) THEN mea=me:GOTO 480 
450 GOTO 443 

470 L0CATE»l,mea,3:PRINTtl," "; :LOCATE41,me,3:PRINT41," ";CHR$(214)CHR$(21S )/ 
475 GOTO 443 
480 CLS43 

485 LOCATEil, mea, 3:PRINTK1, " "! 

490 RETURN 

500 • - text laden 

520 CLS42 

530 L0CATEt2,2,3:PRINT*2, "Mode: Text laden" 

540 PRINTU3, "Name des zu ladenden Textes. :LINE INPUT§3, Ial$:la$=LEFT$(lal$, 

8) + ". tex" 

550 ERASE t$ 

560 UINDOU SUAP 0,3 
570 OPEN IN lat 
580 1NPUT49, x 
590 DIM t$(x) 

600 FOR i=1 TO x 
610 INPUTU9, t$(i) 

620 NEXT 

630 CLOSEIN 

631 CLS 

640 UINDOU SUAP 0,3 
650 name$=lalt 

670 LOCATEt2,2,2:PRINT*2, "Text: "namet 
680 GOTO 830 

690 ’ - text saven 

700 CLS 

710 L0CATE12,2,3:PRINT§2, "Mode: Text abspeichern" 

720 UINDOU SUAP 0,3 

725 INPUT "Name des Textes... ",ait 

730 ai$=LEFT$(ait*" ",8) + ".tex" 

740 OPENOUT ait 
750 URITE49, x 


30 


Computer 

Schau 










Anwendungen 


760 FOR i=l TO x 
770 URlTE*9,t$(i) 

760 NEXT 

790 CLOSEOUT 

791 CLS 

600 UINDOU SUAP 0,3 
620 GOTO 630 

630 ' - text eingeben 

840 CLS: CLS* 3: CLS# 1 

650 ' - edit 

860 Iin=l 

870 cx=l:cy=l 

880 ' - print 1-15 

900 CLS •* CLS#3:FOR i-1 TO 15:L0CATE l,i:PRlNT LEFT$(t$(1in-l+i), 76);:NEXT 
920 ' - Cursor setzen 

935 CLS#1iRESTORE 4540:GOSUB 3120:LOCATE#2,2,3:PRJNT#2, "Mode: Text editieren 
LOCATE cx, cy:PRINT">"! :GOSUB 1271 
938 LOCATE cx, cy:PRINT ">"/ 

940 '- inkey$ 

950 cxl=cx:cyl=cy 
960 i$=INKEY$ 

970 L0CATE#3, 49,1:PRINT*3, USING"ZEILE .. .>*## SPALTE. .. >#*#"!linlcx 
980 IF t$(1in) = nn THEN T$(1 in)=STRING$(76, " ") 

990 IF i$= nn THEN 960 
1000 IF i$=CHR$(240) THEN 2460 
1010 IF i$=CHR$(241) THEN 2540 
1020 IF i$=CHR$(243) THEN 2600 
1030 IF i$=CHR$<242) THEN 2640 
1040 IF i$=CHR$(244) THEN 2910 
1050 IF i$=CHR$(245) THEN 2980 

1060 IF i$=CHR$(127) THEN 2760 

1061 IF i$=CHR$(247) OR i$=CHR$(246) THEN 1271 

1063 IF i$=CHR$(224) THEN 1064 ELSE 1070 

1064 IF me=2 THEN 3570 ELSE IF me=8 THEN 3750 ELSE IF me=14 THEN 3660 ELSE IF me 
=20 THEN 3290 ELSE IF me=26 THEN 4090 ELSE IF me=32 

THEN 2010 ELSE IF me=38 THEN 1390 ELSE IF me=44 THEN 200 
1070 IF i$=CHR$(16) THEN 2800 
1075 IF i$=CHR$(9)THEN 3850 
1080 IF i$=CHR$(13) THEN 2840 


1200 ' - ein gäbe in t$ 

1210 HID$(t$(1 in),cx,l)=i$ 

1220 ' - print eingabe inkey$ 

1230 LOCATE cxl, cyl:PRINT NID$(t$(Iin), cxl, 1) 

1240 ' - neue Cursorposition 

1250 IF cx<76 THEN cx=cx*l ELSE GOTO 2840 
1260 LOCATE cx,cy:PRINT n >”; 

1270 GOTO 940 

1271 ' - ab frage menue 


1272 IF i$=CHR$(247) AND me<43 THEN mea=me:me=me+6:G0T0 1276 

1273 IF i$=CHR$(246) AND me>7 THEN mea=me:me=me-6 

1276 L0CATE*l,mea,3:PRINTtl," "; :L0CATE#1, me, 3:PRINT*1, ” n ;CHR$(214)CHR$(215) 

9 

1279 GOTO 960 

1280 '- input 1 ine 

1290 LINE INPUT#3, i4 


Computer 

Schau 


31 















Anwendungen 


1300 IF i$<>""AND VAL(i$)<32 THEN f=VAL(i$) :flag=l ELSE flag=0 
1310 i$=UPPER$(LEFT$(i$,l)) 

1320 RETURN 

1330 '- ende 

1340 PRINTM3, "Vollen Sie den Text abspeichern. :GOSUB 1280 

1350 IF i$="J" THEN GOSUB 690 

1360 PR1NT43, "Uollen Sie das Programm wirklich loeschen.. iGOSUB 1280 
1370 IF i$="J" THEN CALL 0 
1380 GOTO 935 

1390 ' - sys t emme n ue 

1391 CLSäl:RESTORE 4580:GOSUB 3120 

1392 L0CATEM2,2,3:PRINT42, "Mode: System-Menue " 

1394 GOSUB 420 

1395 UIND0V44,58, 79,8,22 

1396 VIND0V45,63, 77,9,21 
1400 IF ME=2 THEN GOTO 500 
1410 IF ME=8 THEN GOTO 690 

1420 IF ME=14 THEN 1421 ELSE 1430 

1421 VINDOV SVAP 0,5:CLS*4:CLS:PLOT 470,280:DRAV 620,280:DRAU 620,60:DRAU 470,60 
:DRAV 470,280:INPUTU3, "UiIdcard (*. tex)"}I $:ID IR, §1 $ 

: VINDOV SVAP 0,5:GOTO 1394 

1430 IF ME=20 THEN INPUTH3, "UeIches Programm";o$:1NPUTH3, "Neuer Name"In$:IREN, §n 
$, @o$:GOTO 1394 

1440 IF ME=26 THEN INPUT83, "Velches Programm"Io$:!ERA,@o$:GOTO 1394 
1450 IF ME=32 THEN 1461 ELSE 1470 

1461 INPUT43, "Umschalten auf Kassette oder Disk"‘,o$ 

1462 IF UPPER$(LEFT$(o$, 1)) = "K" THEN /TAPE ELSE IDISC 

1463 GOTO 1394 

1470 IF ME=38 THEN 1550 

1475 IF ME=44 THEN CLS:GOTO 870 

1550 PR1NTH3, " Rahmenfarbe . >";:GOSUB 1280: IF flag=l THEN BORDER f 

1560 PRINT 113, " Hinter grungfarbe. ...>"! :GOSUB 1280: IF flag=l THEN INK 0,f 

1570 PR1NTH3, " Schreibfarbe . >";:GOSUB 1280: IF flag=l THEN INK l,f 

1580 PRINTH3, " Speed Vrite (0/1:GOSUB 1280:IF f=l OR f=0 THEN SPEED URITE 

f 

1585 CLS43 

1590 GOTO 1394 

1600 ' - error 


1610 CLSil :PRINTil :PRINTU1, " Im Programm ist ein Fehler."," Zeile 

1620 PRINTil, " Fehlernummer: "ERR 

1630 PR1NT43, "Programm abbrechen.:GOSUB 1280 

1640 IF i$="J" THEN 1330 

1650 GOTO 830 

1660 ' - tastatur 

1670 CLS 

1660 LOCATE 30,2:PRINT"T E X T - P R 0 
1690 a=25:b=a/6:z$="":RESTORE 4490 

1700 yl=234:w=0:FOR i=73 TO 506 STEP 31:xl=i:GOSUB 1830:NEXT 

1710 xl=xl+31:w=a/2:G0SUB 1830 

1720 yl=yl-34:xl=73:w=a/2:G0SUB 1830 

1730 w=0:FOR i=117 TO 459 STEP 31:xl=i:GOSUB 1830:NEXT 

1740 x1=489: GOSUB 1910 

1750 yl=yl-34:xl=73:w=a-a/4:G0SUB 1830 

1760 w=0:FOR i=123 TO 465 STEP 31:xl=i:GOSUB 1830:NEXT 

1770 yl=yl-34:x1 =73:w=a+a/2:GOSUB 1830 
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1780 u=0:FOR i=142 TO 452 STEP 3l:xl=i :GOSUB 1830:NEXT 

1790 xl=483:v=a+a/2:G0SUB 1830 

1800 yl=yl -34:xl=173:w=a*8+48:GOSUB 1830 

1810 xl =452: v=0 •’ GOSUB 1830 

1820 RETURN 

1830 READ z$ 

1840 PLOT xl,yUDRAU xl+a+w,yl :DRAU xl+a+w, yl-a-a/10:DRAU xl,yl-a-a/10:DRAU xl,y 
1 

1850 PLOT xl+b,yl-b:DRAU xl+a+w-b,yl-b:DRAU xl+a+v-b,yl-a-a/10+b:DRAU xl+b,yl-a- 

a/10+b:DRAU xl+b,yl-b 

1860 PLOT xl,yl:DRAU xl+b,yl-b 

1870 FOR t=xl +a+w TO xl+a+w-b STEP -l'.PLOT t,yl+t-(xl+a+u) :DRAU t, yl-a-a/10:NEXT 

1880 FOR t=xl TO xl+b:PLOT t,yl-a-a/10+t-xl:DRAU xl+a*w, yl-a:NEXT 
1890 HOVE xl+b+b-1,yl-b-b:TAG Haus:PRlNT«aus,Z$!:TAGOFF Haus 
1900 RETURN 
1910 READ Z$ 

1920 PLOT xl,yl:DRAU xl+a*2+6, yl:DRAU xl+a*2+6,yl-a*2-a/5-6:DRAU xl+a/4,yl-a*2-a 
/5-6:DRAU xl+a/4,yl-a-a/5:DRAU xl,yl-a-a/5:DRAU xl,y 
1 

1940 PLOT xl+b,yl-b:DRAU xl+a*2+6-b,yl-b:DRAU xl+a*2+6-b,yl-a*2-a/5-6+b:DRAU xl+ 
a/4+b,yl-a*2-a/5-6+b:DRAU xl+a/4+b,yl-a-a/5+b:DRAU x 
1+b,yl-a-a/5+b:DRAU xl+b,yl-b 

1950 PLOT xl,yl :DRAU xl+b, yl-b:PLOT xl+a/4,yl-a-a/5:DRAU xl+a/4+b,yl-a-a/5+b:PL0 

T xl,yl-a-a/5:DRAU xl+b,yl-a-a/5+b:PL0T xl,yi:DRAU x 

l*b,yl-b 

1960 FOR t=xl+a*2+6 TO xl+a*2+6-b STEP -1:PL0T t,yl+t-(xl+a*2+6):DRAU t,yl-a*2-a 
/5-6:NEXT 

1970 FOR t=xl+a/4 TO xl+a/4+b:PL0T t,yl-a*2-a/5-6+t-(xl+a/4) 

1980 DRAU xl+a*2+a/4,yl-a*2-a/5-6:NEXT 

1990 HOVE xl+b*2+10,yl-b*2-16:TAG:PR!NT z$;:TAGOFF 

2000 RETURN 

2010 ' - ausdruck 

2020 L0CATEH2,2,3:PRINT«2, "Mode: Drucken " 

2050 UIDTH 80:PRINTH8, CHR$(27) n A n CHR$(12)CHR$(27)CHR$(84)CHR$(27)CHR$(72)CHR$(27 
)CHR$(73)CHR$(1)CHR$(24)CHR$(18)CHR$(20)! 

2060 1F spr=0 THEN PRINTH8, CHR$(27) /"6"; 

2070 IF spr=l THEN PRINTH8, CHR$(27) I”7”! 

2080 CLSi3:CLS#l:REST0RE 4550:GOSUB 3120 
2090 GOSUB 420 
2110 mel=me 

2120 IF me=8 THEN PRINTH8, CHR$(15)/:GOTO 2170 

2121 IF me=2 THEN GOTO 2170 

2130 IF me=14 THEN PRINT *B,CHR$(14) / ‘.GOTO 2170 
2140 IF me=26 THEN PRINT #8,CHR$(27)CHR$(73)CHR$(3)!:GOTO 2170 
2150 IF me=20 THEN PRINTH8, CHR$(27)CHR$(83)CHR$(1)::GOTO 2170 
2160 IF me<>2 THEN 2280 

2170 IF me=26 THEN GOTO 2210 ELSE CLSH1:RESTORE 4560:GOSUB 3120:GOSUB 420 
2190 IF HEI=8 AND ME=14 THEN ME=8 

2200 IF ME=2 THEN PRINTU8,CHR$(27)CHR$(70)i ELSE IF ME=14 THEN PRINT H8,CHR$(27) 
CHR$(69)S ELSE IF me=8 THEN PRINT«8, CHR$(27)CHR$(71) 
i ELSE 2170 

2210 CLSH1:RESTORE 4570:GOSUB 3120:GOSUB 420 

2230 IF ME=2 THEN PRINTH8, CHR$(27)l"3 n ;CHR$(35 )/ ELSE IF HE=8 THEN PRINT *8,CHR$ 
(27) / "3";CHR$(70); ELSE IF ME=14 THEN PRINTH8, CHR*(2 
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7); n 3";CHR$(24); ELSE IF me =20 THEN PRINT #8, CHR$(27) / "3";CHR$(16)S 
2240 i = l in 

2250 IF mel=14 THEN PRINT*8,CHR$(14 )/ 

2255 PRINT*3, "Drucken gestartet." 

2260 IF (mel 014 AND i<x+l AND t$(i)<>”") THEN PR INT* 8," ";LEFT$ (t$(i), 76)(:i=i 
+1:GOTO 2260 

2270 IF (mel=14 AND i<x+l AND t$(i)<>"") THEN PR INT*8, CHRt(14) ;” n ;LEFT$ (t$ ( i ), 
38)H=i+1:GOTO 2260 


2280 GOTO 935 

2310 '- break 

2320 ON BREAK GOSUB 2330 
2330 GOTO 830 

2340 ' - window normal 

2350 CLS 

2360 PRINT" TEXTVERARBEITUNGS-PROGRAMM -TEXT-PRO- "CHR$( 164)" 1985 


BY JENS KR1ESE" 

2370 FOR 1=0 TO 1 

2380 PLOT 1 +1, 380:DRAU 638+1, 380:DRAU 638+I,l:DRAU 1 + 1,1:DRAU 1 + 1,380 

2390 PLOT 5+1, 376:DRAU 634+1, 376:DRAU 634+I,4:DRAU 5+I,4:DRAU 5+1,376 

2400 PLOT 5+1,296:DRAU 634+1,296 

2410 PLOT 402+1,376:DRAU 402+1,296 

2420 PLOT 5+1,40:DRAU 634+1,40 

2430 NEXT 

2440 U1NDOU*0, 3, 79,8, 22: U1ND0U*1,3, 50, 3, 6 : U1ND0U»2,52, 79, 3, 6: U1ND0U*3,3, 79,24,24 
2450 RETURN 

2460 ' - Cursor up 

2470 IF 1in>=l THEN 2480 ELSE 938 
2480 IF lin=l THEN 938 

2490 IF cy>l THEN cy=cy-l ELSE CALL 41301:cyl=cyl+1:LOCATE l,l:PRINT LEFT$(t$(11 
n-1), 76); 

2500 IF cy=l THEN LOCATE 1,1:PRINT LEFT$(t$(1in~l), 76); 

2510 LOCATE cxl, cyl:PR INT MID$(t$(lin) ,cxl, 1) 

2520 IF Iin>l THEN lin=lin-l 
2530 GOTO 938 

2540 ' - Cursor down 

2545 IF linCx THEN 2550 ELSE GOTO 938 

2550 IF cy<15 THEN cy=cy+l ELSE CALL 41314:cyl=cyl-l 

2560 IF cy=15 THEN LOCATE 1,15:PR1NT LEFT$(t$( 1 in+1),76) ; 

2570 LOCATE cxl, cyl:PRINT MID$(t$(1 in),cxl,1) 

2580 IF 1in<x THEN lin=Iin+l 
2590 GOTO 938 

2600 ' - Cursor rechts 

2610 IF cx<76 THEN cx=cx+l 

2620 LOCATE cxl, cyl:PRINT H1D$(t$(Iin), cxl, 1) 

2630 GOTO 938 

2640 ' - Cursor links 

2650 IF cx>l THEN cx=cx-l 

2660 LOCATE cxl, cyl:PRINT MID$(t$(Iin), cxl, 1) 

2670 GOTO 938 

2680 ' - copy Cursor up 

2690 IF cy>l THEN cy=cy-l ELSE CALL 41301:cyl=cyl+l:LOCATE l,l:PRINT LEFT$(t$(1i 
n-1), 76); 

2700 IF 1in>l THEN lin=lin-l 
2710 RETURN 

2720 ' - copy Cursor down 
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2725 IF 1in<x THEN 2730 ELSE RETURN 

2730 IF cy<15 THEN cy=cy+l ELSE CALL 41314:cyl=cyl-1•LOCATE 1,15:PRINT LEFT$(t$( 
lin+1), 76); 

2740 IF Iin<x THEN lin=lin+l 

2750 RETURN 

2760 '- del 

2770 IF cx>l THEN t*(Iin)-LEFT$(t$(Iin), cx-2) +RIGHT$(t$(Iin), 77-cx)*" " 

2760 IF cx>l THEN cx=cx-l:LOCATE l,cy:PRINT t$(Iin) 

2790 GOTO 938 
2800 ' - clr 

2810 IF cx<76 THEN t$(Iin)=LEFT$(t$(I in), cx-1) +RIGHT$ (t$ (I in),76-cx) + ” " 

2820 IF cx<76 THEN LOCATE l,cy:PRINT t$(lin) 

2830 GOTO 938 

2840 ' - return 

2850 cx=l 

2860 IF cy<15 THEN cy=cy+l ELSE CALL 41314:cyl=cyl-l 
2870 IF cy-15 THEN LOCATE 1,15:PRINT t$(lin*l)i 
2880 LOCATE cxl, cyl:PRINT HID$(t$(Iin),cxl, 1) 

2890 IF Jin<x THEN lii)=lin+l 
2900 GOTO 938 

2910 IF Iin>l THEN 2920 ELSE 2970 

2920 IF 1 in-20>1 THEN aix=Un-20 ELSE aix=2 

2930 LOCATE cx,cy:PRINT MID$(t$(1 in),cx,1 )/ 

2940 FOR ii=lin TO aix STEP -1 
2950 GOSUB 2680 
2960 NEXT 
2970 GOTO 938 

2980 IF Iin<256 THEN 2990 ELSE 3040 

2990 IF lin+20<x+l THEN aix=1in+20 ELSE aix=x 

3000 LOCATE cx, cy: PRINT HID$( t$(1 in),cx, 1)! 

3010 FOR ii=Iin TO aix 
3020 GOSUB 2720 
3030 NEXT 
3040 GOTO 938 

3050 ' - up mc laden 

3060 RESTORE 4470 

3070 FOR i=41301 TO 41326 

3080 READ a 

3090 POKE i,a 

3100 NEXT 

3110 RETURN 

3120 ' - menue zeichnen 

3139 CLS41 

3140 yl=366:a=25:b=a/6:w=a-a/4:F0R xl=16 TO 352 STEP 48:G0SUB 1830:NEXT 

3289 RETURN 

3290 ' - suchen/tauschen 

3300 L0CATE42,2,3:PRINTi2,"Mode: Suchen/Tauschen " 

3310 PRINTH3, " (S)uchen oder (A)ustauschen. ..>";:LINE 1NPUTV3, i$:i$=LEFT$(UPPER$ 
(i$),l) 

3320 IF i$="A n THEN 3350 
3330 IF i$="S" THEN 3470 
3340 GOTO 3310 
3350 ' - austauschen 

3360 PRINTU3," Auszutauschendes Wort...:LINE INPUT43,u$:u=LEN(u$) 
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3370 PRINT*3," Zu ersetzen durch.:L1NE INPUT*3, v$:v=LEN(v$):PRINT*3, " Routi 
ne gestartet" 

3380 FOR i =1 TO xHF t$(i) = "" THEN 3440 

3390 FOR o=l TO 77-u 

3400 IF M1D$(t$(i), o,u)<>u$ THEN 3430 

3410 t$(i)=LEFT$(t$(i),o-l)+v$+MID$(t$(i), o+u, 77-o-u)+" " 

3420 t$(i)=LEFT$(t$(i), 76) 

3430 NEXT o 
3440 NEXT i 

3460 cy=l:cyl=cy:CLS#3:G0T0 900 
3470 '- suchen 

3480 PRINT*3, " Zu suchende Sequenz...>";:LINE 1NPUT*3, u$:u=LEN(u$) 

3490 PRINT*3, " Routine gestartet" 

3500 FOR i=l TO x:lF t$(i)= nn THEN 3550 

3510 FOR o=l TO 77-u 

3520 IF MID$(t$(i), o, u)Ou$ THEN 3540 

3530 1 in=i :CLS*3:cy=l :cyl=cy:G0T0 870 

3540 NEXT o 

3550 NEXT i 

3560 CLS*3:cy=l:cyl=cy:GOTO 900 
3570 ' - kopieren 

3580 L0CATE*2,2, 3:PR1NT*2, "Mode: Zeile kopieren " 

3590 PRINTV3, " Kopieren von Zeile...>";:LINE INPUT* 3,i$:u=VAL(i$) 

3600 PRINT43, ” Kopieren bis Zei1e...> n ;:LINE INPUTH3, i$:v=VAL(i$) 

3610 PRINTK3Kopieren nach Zeile... > n ;:LINE INPUTM3, i$:n=VAL(i$) 

3620 FOR i=u TO v 
3630 t$(n+i-u)=t$(i) 

3640 NEXT i 

3650 cy=l:cyl=cy:CLS43:GOTO 900 
3660 ’ - 1 oeschen 

3670 L0CATEH2,2,3:PRINT#2, "Mode: Zeile 1oeschen n 

3680 PR INT*3, " Loeschen von Zei1e...> n ;:LINE INPUT*3, i$:u=VAL(i$) 

3690 PRINT*3, " Loeschen bis Zeile...> n ;:L1NE INPUTU3,i$:v=VAL(i$) 

3700 FOR i=u TO x-l-(v-u) 

3710 t$(i)=t$(i+(v-u)+1) 

3720 NEXT i 

3730 FOR i=x-l-(v-u) TO x:t$(i)="":NEXT 
3740 cy=l:cyl =cy.‘CLS:CLS*3:GOTO 900 
3750 '- platz schaffen 

3760 L0CATE*2,2, 3:PRINT*2, "Mode: Zeile einfuegen " 

3770 PR INT*3, " Nach welcher Zeile einfuegen...>";:LINE INPUT93, i$:u=VAL(i$) 

3780 PR1NT*3, n Wieviele Zeilen einfuegen. ..>";:LINE INPUT*3, i$:v=VAL(i$) 

3790 FOR i=x-v-l TO u+1 STEP-1 
3800 tt(i+v)=t$(i) 

3810 NEXT i 

3820 FOR i=u+l TO u+v 

3830 t$(i)=STR1NG$(76, " "):NEXT 

3840 cy=l:cyl=cy:CLS*3:GOTO 900 

3850 '- einfuegen 

3860 IF cx<76 THEN t$(1in)=LEFT$(t$(1 in), cx-1) + " ”+LEFT$(RlGHT$(t$(1 in),77-cx),7 
6-cx) 

3870 IF cx<76 THEN LOCATE l,cy:PRlNT t$(lin) 

3880 GOTO 938 

4090 ’ - formatieren 

4100 L0CATE*2,2, 3 •' PRINT*2, "Mode: Text formatieren " 
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4110 CLS:PRINTM3, " Wie breit soll der Text sein (20-76) :LINE 1NPUTM3, i*:u- 

VAL(i*):IF u<20 OR u>76 THEN 4110 
4120 ii=l:e*="":w*="":DIM tl*(200) 


4130 FOR i=l TO x 

4140 IF t*(i)=STRING*(76, " ") THEN tl$(ii+1) = "” • tl$(ii)=LEFT*(tl$( 11 ) + t*(l), 76): 
ii=ii+2:G0T0 4200 

4150 IF t*(i)="" AND tl*(ii)="" THEN ii=ii+l:GOTO 4200 

4155 IF t*(i)=”" THEN tl$(ii+1)=t*(i) : tl$(ii)=LEFT$(tl$(ii)+STR1NG*(76, " "),76): 
ii=ii+2:G0T0 4200 
4160 FOR o=l TO 76 

4170 IF MID*(t*(i),o,l)<>" ” THEN e*=e*+MID*(t$(i), o, 1) 

4180 IF MID$(t$(i), o,l) = " ” AND HID$(t$(i),o+l, 1)0" " THEN e$=e$+" ":w$=e$:e$~" 
"iGOSUB 4220 
4190 NEXT o 

4200 IF i i <201 THEN NEXT i ELSE 4210 

4210 GOTO 4240 . . __ 

4220 IF LEN(tl$(ii))+LEN(w$Xu THEN tl$(ii)=tl$(ii) +w$:»$="":ELSE tl$(ii)=LEFT$( 

tl$(ii)+STRING$(76," "),76):ii=ii+1 :GOTO 4220 
4230 RETURN 

4240 PRINT43, "SolI der neu formatierte Text uebernommen werden.sLINE INPUT9 
3, i$:i$=LEFT$(LOWER*(i$),l) 

4250 IF UPPER*(i*)="J" THEN FOR i=l TO X:t*(i)=tl*(i):NEXT 
4255 ERASE tl* 

4260 cy=l:cyl=cy:CLSM3iCLS:GOTO 850 
4360 ' - tastatur 


4370 spr*="deutsch":spr=0 
4380 SYMBOL 123,198,0,120,12,124,204,118,0 
4390 SYMBOL 125,198,0,102,102,102,102,62,0 
4400 SYMBOL 124,198,0, 60,102,102,102, 60,0 
4410 SYMBOL 126,120,198,198,252,198,198,248,192 
4420 SYMBOL 91,219,60,102,102,126,102,102,0 
4430 SYMBOL 93, 198,0,198,198,198,198,60,0 
4440 SYMBOL 92,198,56,198,198,198,108,56,0 

4450 KEY DEF 17,1,123,91 :KEY DEF 19,1,125,93:KEY DEF 26,1,124,92:KEY DEF 24,1,12 


6 :RETURN 

4460 'datas fuer mc-code 

4470 DA TA 1/01, &0, &0, &11,&15, &4e, &21, t/07, t/02, t/cd, t/50, t/bc, &c9 
4480 DA TA t/01, t/0, t/01, t/11, t/15, t/4e, t/21, t/07, t/02, &cd, t/50, &bc, &c9 


4485 'datas fuer tastatur 

4490 DA TA E,l, 2,3, 4,5, 6, 7, 8,9,0, " -C, DEL 
4500 DA TA TAB, Q, U, E, R, T, Y,U,1,0, P, "I", ENT 

4510 DA TA CAPS, A,S,D, F, G, H, J, K, L, ": ", ", "J " 

4520 DATA SHIFT, Z, X, C, V, B, N, M, ", ", ", ", SHIFT, " SPACE", C 

4525 'datas fuer menues 
4530 DATA DISK, NEU, , , , , , 

4540 DA TA COPY, EI NF, LOES, SUCH, FORM, DRUC, DISK, NEU 
4550 DATA NORM, KOMP, FETT, SCHM, NLQ, , , 

4560 DATA NORM, DOPP, HERV, , , , , 

4570 DATA NORM, WEIT, ENG, SEHR, , , , , 

4580 DA TA LOAD, SA VE, DIR, REN, ERA, CASS, FÄRB, "->" 

30000 CLOSEIN: WINDOW SWAP 3,0:DIM t* (200) :GOTO 830 



Computer 

Schau 


37 






Anwendungen 


Arbeiten mit dem 
2. Speicher 
beim (PC 6128 


Der neue Schneider CPC 6128 wird 
von Haus aus mit einem Speicher 
von 128 KByte ausgerüstet Dieser 
Speicher ist mit „normalen” Basic- 
Befehlen nicht zu erreichen . 
Schneider liefert deshalb das Pro¬ 
gramm „BANKMAN” mit Mit des¬ 
sen Hilfe können dem Rechner fünf 
RSX-Befehle mitgeteilt werden; 
dann stehen dem Anwender auch 
die zusätzlichen 64 KByle zur Ver¬ 
fügung, 


„BANKMAN“ eignet sich hervorra¬ 
gend zum Arbeiten mit verschiede¬ 
nen Bildschirmen. Vier Bildschirme 
können in den zweiten 64 KByte 
untergebracht werden. „SCREEN- 
COPY“ und „SCREENSWAP“ er¬ 
möglichen schnelles und komforta¬ 
bles Arbeiten unter BASIC. 

Auch über die anderen RSX-Befehle 
ist schon genügend geschrieben 
worden. „BANKREAD“ und 
„BANKWRITE“ erlauben die Spei¬ 
cherung von Stringvariablen in dem 
Zusatzspeicher; mit „BANKFIND“ 
ist sogar eine Suche mit Wildcards 
vorgesehen. Also, warum sich noch 
weiter mit den BANK-Operationen 
auseinandersetzen, wo doch dank 
„BANKMAN“ alles wunderbar 
funktioniert? 

Etwas anderes: Haben Sie schon 
einmal probiert, den zweiten Spei¬ 
cher komplett zu löschen? Pro¬ 
gramm 1 soll das für uns machen. 
Die Aktion läuft relativ schnell, aber 
leider fehlt noch 1 Byte. Also erhö¬ 
hen wir „1“ auf 256. Dies wiederum 
nimmt uns das BASIC übel, denn 
Stringvariablen dürfen nur maximal 
255 Bytes lang sein. Deshalb soll „1“ 
128 und „n“ 512 sein; nun werden 


in 512 Durchgängen die gesamten 
65 536 Bytes gelöscht. Aber, haben 
Sie schon einmal auf die Zeit geach¬ 
tet? 4,53 Sekunden! Das kann ja 
noch nicht das Gelbe vom Ei sein. 
Grund genug, sich doch etwas mit 
dem Zusatzspeicher und seiner An¬ 
steuerung zu beschäftigen. Um der 
Theorie auch etwas Würze zu ge¬ 
ben, schreiben wir ein Programm, 
das den Zusatzspeicher ganz löscht 
und nicht soviel Zeit dafür benötigt. 
„BANKCLEAR“ heißt es, denn ge¬ 
nau das soll es auch nachher ma¬ 
chen. Für diejenigen, denen Ma¬ 
schinensprache im Moment noch 
nicht soviel sagt, haben wir auch 
einen BASIC-Lader als Programm 2 
in diesen Artikel mit aufgenommen. 
Dieser BASIC-Lader erlaubt, in ge¬ 
wissen Grenzen, „BANKCLEAR“ an 
verschiedene Startadressen im 
Speicher anzusiedeln; unerlaubte 
Adressen werden von ihm ignoriert. 
Warum sind bestimmte Speicherbe¬ 
reiche für die Ansiedlung von 
„BANKCLEAR“ nicht erlaubt? Die 
Antwort wird schon im Handbuch 
mit einem kurzen Satz gestreift: 
„Beachten Sie, daß jeder Block aus 
den zweiten 64 KByte an derselben 
Adresse abgelegt wird.“ Der Bereich 
liegt zwischen &4000 und &7FFF. 
Wird der zweite Speicher angespro¬ 
chen, so wird im „Hauptspeicher“ 
ohne Rücksicht auf irgendwelche 
vorhandenen Daten der Bereich 
ausgeblendet; stattdessen finden 
wir an dieser Stelle nun einen Block 
aus dem zweiten Speicher. 

Ein Block ist 16 KByte lang, folglich 
besteht der Zusatzspeicher aus vier 
Blöcken. Die einzelnen Blöcke ha¬ 
ben eine Kennung von 4 bis 7. Diese 
Kennung muß dem Rechner mitge¬ 


teilt werden; so weiß er, welcher 
Block gerade „up to date“ ist. 
„CALL BANK“ ermöglicht diese 
Mitteilung, wobei BANK für die 
Adresse &BD5B steht. Hier wird ei¬ 
ne Routine im ROM aufgerufen, die 
die Bankwahl durch einen „OUT 
(c),c“-Befehl vornimmt. Die Block¬ 
kennung muß sich dabei im Register 
„A“ befinden. Will man also eine 
Bank aus dem Zusatzspeicher be¬ 
nutzen, so wird die Kennung nach 
„A“ geladen und „CALL BANK“ 
aufgerufen. Der Speicherbereich 
&4000 bis &7FFF wird nun durch 
den angewählten Block ersetzt und 
kann beschrieben werden. Würde 
unser Programm „BANKCLEAR“ in 
diesem Bereich liegen, so würde es 
sich beim ersten „CALL BANK“ 
selbst ausblenden; ein Absturz des 
Rechners wäre unvermeidlich. 

Was macht nun unser kleines Pro¬ 
gramm? Register „A“ wird mit der 
ersten Bankkennung geladen; da¬ 
nach wird der erste Block geladen 
und gelöscht. „A“ wird erhöht und 
der zweite Block wird gelöscht. Als 
Zähler fungiert übrigens das Regi¬ 
ster „C“. Wird in „C“ der Wert 8 
erreicht, dann ist es höchste Zeit, 
das Programm zu verlassen. Zuvor 
wird der Hauptspeicher aber wieder 
in seinen Originalzustand versetzt. 
Dazu bekommt das Register „A“ den 
Wert 0; ein letztesmal wird „CALL 
BANK“ aufgerufen. Der Hauptspei¬ 
cher ist wieder komplett, der Zweit¬ 
speicher gelöscht, und das Maschi¬ 
nenprogramm zu Ende. 

Haben Sie noch Interesse an einem 
zweiten Programm, das die Bankbe¬ 
fehle erweitert? Dann sollten Sie 
weiter lesen. Stellen Sie sich vor, 
Sie haben einen Speicherbereich, 
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den Sie in den Zweitspeicher über¬ 
tragen möchten. Natürlich können 
Sie dies mit Hilfe des „BANKMAN“ 
tun. Wie, das zeigt Programm 3. 
Übergeben an „BANKWRITE“ wird 
nun nicht mehr eine Variable, son¬ 
dern eine Adresse; es ist also nicht 
nötig, den Speicherinhalt erst einer 
Variablen „aufzuhalsen“. Umge¬ 
kehrt funktioniert es bei „BANK- 
READ“ natürlich genauso; die Da¬ 
ten aus dem zweiten Speicher wer¬ 
den direkt an die Adresse im Haupt¬ 
speicher geladen. 

Interessanter wird es bei einem 
„BANKSWAP“-Befehl. Hierbei wird 
ein Speicherbereich mit einem an¬ 
deren Speicher vertauscht. Im Pro¬ 
gramm 4 wird gezeigt, wie beim 
„BANKMAN“ so etwas realisiert 
werden kann. Getauscht werden 
sollen, der Einfachheit halber, zwei 
16-KByte-Bereiche. Die Bereichs¬ 
grenzen sind frei wählbar. Leider 
können wir den eingebauten 
„SCREENSWAP“-Befehl nicht be¬ 
nutzen; wir müßten jedesmal die 
Daten in den Bildschirmspeicher la¬ 
den und anschließend wieder zu¬ 
rückholen. Das ist nicht nur sehr 
zeitaufwendig, sondern es sieht 
auch merkwürdig aus. 

Unter Maschinensprache geht der 
Vorgang wieder erheblich schneller. 
Das Programm benötigt zu allererst 
zwei Zwischenspeicher. Aus dem 
zuvor gelesenen wissen wir, daß 
diese Speicher oberhalb von &7FFF 
liegen müssen; daher werden Sie an 
das Ende des Programms gehängt. 
„BANKSWAP“ kann also wiederum 
nur im Bereich über &7FFF abgelegt 
werden; der BASIC-Lader berück¬ 
sichtigt das. 

Das Programm gliedert sich grob in 
drei Teile. Teil 1 beginnt bei 


BANKSW. Hier wird kontrolliert, 
ob die angewählte Bank überhaupt 
zulässig ist. Dabei steht eine „0“ für 
die Bank im Hauptspeicher; „1“ bis 
„4“ bezeichnen die Banken im Zu¬ 
satzspeicher. Das Subprogramm bei 
BANKSl berechnet die korrekten 
Kennungen. 

Bei BANKS2 beginnt dann der ei¬ 
gentliche SWAP-Vorgang. Zuerst 
wird ein Speicherteilbereich im 
ZWSPl gesichert. Dann wird der 
Hauptspeicher ausgeblendet; die 
Daten aus dem Zusatzspeicher wer¬ 
den nach ZWSP geladen (entspricht 
„BANKREAD“). Anschließend wird 
der Inhalt von ZWSPl an die ent¬ 
sprechende Adresse im Zusatzspei¬ 
cher gesandt („BANKWRITE“). Der 
Hauptspeicher wird nun eingeblen- 
det; der Inhalt von ZWSP kommt an 
seinen Platz. Dieser Vorgang wie¬ 
derholt sich bei unserem Beispiel 
64mal; danach sind zwei 16-KByte- 
Blöcke ausgetauscht. 

Teil 3 beginnt bei BANKSO. Bisher 
wurde nur die Bank aus dem Haupt¬ 
speicher, z. B. Bank 3, wieder an 
ihren Platz im Zusatzspeicher ge¬ 
schickt. Jetzt soll aber auch eine 
neue Bank, z. B. Bank 4, in den Ar¬ 
beitsspeicher geladen werden. Die¬ 
se neue Bank muß bei dem Aufruf 
von „BANKSWAP“ mit übergeben 
werden. Der Vorgang beginnt von 
neuem: Der Arbeitsspeicher (Bank 
0) wird in den Zusatzspeicher gela¬ 
den; Bank 4 nimmt den Platz von 
Bank 0 ein. 

Worin liegt der Vorteil bei dem dop¬ 
pelten Bankgeschiebe? Schneller 
ginge es, wenn man den 16-KByte- 
Block im Hauptspeicher als reinen 
Arbeitsspeicher betrachten würde. 
Dann brauchten die Bänke aus dem 
Zusatzspeicher nur dorthin geladen 


zu werden; einfache Blockladebe¬ 
fehle des Z80 würden genügen. Lei¬ 
der stehen dem Anwender dann 
aber nur 64 KByte zur Verfügung; 
mit unserem „BANKSWAP“ liegen 
wir aber bei 80 KByte. Grund genug, 
wie ich meine, dieses etwas auf¬ 
wendigere Verfahren zu benutzen. 
„BANKSWAP“ wird mit einem 
CALL-Befehl aufgerufen. Dabei muß 
zu Beginn die Adresse von Bank 0 
im Hauptspeicher angegeben wer¬ 
den. Mit „CALL &9F00, 0, &3000“ 
wird der Beginn von Bank 0 auf 
&3000 festgelegt; Bank 0 umfaßt al¬ 
so in diesem Beispiel den Speicher¬ 
bereich &5000 bis &6FFF. Gleich¬ 
zeitig finden wir auch unser 
, ,BANKCLEAR‘ ‘ wieder; es wird 
ausgeführt, wenn zwei Parameter an 
das Programm übergeben werden. 
So wird der gesamte Zusatzspeicher 
gelöscht. 

„CALL &9F00,2“: hiermit wird in 
den Arbeitsspeicher die Bank 2 ge¬ 
laden. Die bisherige Bank 0 wird 
unter der Adresse von Bank 2 ge¬ 
speichert. Ein nochmaliger Aufruf 
von Bank 2 würde außer Zeitverlust 
nichts ändern. 

Programm 5 enthält den BASIC-La¬ 
der für BANK SWAP. Das korrekte 
Programm wird automatisch gesi¬ 
chert und dann aufgerufen. Denken 
Sie daran, daß BANKSWAP zuerst 
die Bereichsgrenzen des Speichers 
mitgeteilt werden müssen. Dabei 
wird immer der gesamte Speicher 
gelöscht. In Programm 5 wird diese 
Bedingung vor dem ersten Aufruf 
von BANKSWAP erfüllt. 

Natürlich können Sie auch diesen 
Befehl wieder als RSX-Befehl in Ih¬ 
re Programme einbinden. Das As- 
semblerlisting kann Ihnen da behilf¬ 
lich sein. F. BERG/LM 


ARNOR Z80 ASSEMBLER Version 1.10 Page 001 


00002 

BANKSWAP fuer CPC 6128 

00003 

(c) 11/85 f.berg 

00004 


00005 

CALL bankswap,0,spa (Aufruf Bankswap Init) 

00006 

CALL bankswap,bank (Aufruf Bankswap) 

00007 


00008 


00009 9F00 (A474) 

ORG &9F00,§ 

00010 


00011 9FOO (0100) 

SLEN EQU &100 ;Satzlaenge 
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j§§ IBlMl 


00012 

9F00 

(0140) 

BANKNR 

EQU 

&140 

;Banknummer (intern) 

00013 

9F00 

(0141) 

SEITE 

EQU 

&141 

;alte Banknummer 

00014 

9F00 

(0142) 

SPBANK 

EQU 

& 142 

;Adr. Bankspeicher 

00015 

9F00 

(0144) 

SPA 

EQU 

&144 

;Hauptspeicheranfang 

00016 

9F00 

(0146) 

SPASP 

EQU 

&146 

;Zwischenspeicher 

00017 







00018 



i 

Systemspruenge 


00019 







00020 

9F00 

(BD5B) 

BANK 

EQU 

&BD5B 


00021 







00022 







00023 

9F00 

FE 02 

BK I NIT 

CP 

2 

»Uebergabe 2 Parameter? 

00024 

9F02 

20 27 


JR 

NZ,BANKSW 


00025 







00026 

9F04 

ED 53 44 01 


LD 

(SPA),DE 

jSpeicheranfang 

00Q27 







00028 

9F08 

OE 04 


LD 

C,4 

»Die einzelnen Baenke 

00029 

9F0A 

79 

BANKCL 

LD 

A, C 

» werden geloescht. 

00030 

9F0B 

CD 5B BD 


CALL 

BANK 

»Ausblendung Hauptspeicher 

00031 

9F0E 

C5 


PUSH 

BC 

»C wird gerettet. 

00032 







00033 

9F0F 

01. FF 3F 


LD 

BC,&3FFF 

»Die Baenke liegen immer 

00034 

9F12 

21 00 40 


LD 

HL,&4000 

; im Bereich zwischen 

00035 

9F15 

36 20 


LD 

(HL)," " 

; &4000 und &7FFF. 

00036 

9F17 

11 01 40 


LD 

DE,&4001 


00037 

9F1A 

ED BO 


LDIR 



00038 







000?9 

9F1C 

CI 


POP 

BC 

;C wird geholt 

00040 

9F1D 

OC 


INC 

C 

;Die naechste Bank wird 

00041 

9F1E 

79 


LD 

A, C 

»‘ ausgesucht. 

00042 

9F1F 

FE 08 


CP 

8 

; Ist C=8, dann Ende. 

00Q43 

9F21 

20 E7 


JR 

NZ,BANKCL 


00044 







00045 

9F23 

97 


SUB 

A 

jHauptspeicher wird ein- 

00046 

9F24 

CD 5B BD 


CALL 

BANK 

; geblendet. 

00047 

9F27 

32 41 01 


LD 

(SEITE),A 


00048 

9F2A 

C9 


RET 



00049 







00050 

9F2B 

ED 5B 41 01 

BANKSW 

LD 

DE,(SEITE) 

;alte Banknummer 

00051 

9F2F 

CD 99 9F 


CALL 

BANKS1 


00052 

9F32 

38 03 


JR 

C,BANKSO 

»Carry bei 0<Bank>4 

00053 

9F34 

CD 44 9F 


CALL 

BANKS2 


00054 







00055 

9F37 

DD 5E 00 

BANKSO 

LD 

E,(IX+O) 

;neue Banknummer 

00056 

9F3A 

16 00 


LD 

D, 0 


00057 

9F3C 

ED 53 41 01 


LD 

(SEITE),DE 


00058 

9F40 

CD 99 9F 


CALL 

BANKS1 


00059 

9F43 

D8 


RET 

C 


00060 







00061 



f 

*** 

BANKSWAP 


00062 







00063 

9F44 

06 40 

BANKS2 

LD 

B, 64 

;Initialisierung 

00064 

9F46 

21 00 40 


LD 

HL,&4000 

; B ist Zaehler 

00065 

9F49 

22 42 01 


LD 

(SPBANK),HL 


00066 

9F4C 

2A 44 01 


LD 

HL,(SPA) 


00067 

9F4F 

22 46 01 


LD 

(SPASP),HL 


00068 







00069 

9F52 

C5 

BANKS3 

PUSH 

BC 

»B wird gerettet. 
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00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 

00081 

00082 

00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 

00098 

00099 

00100 

00101 

00102 

00103 

00104 

00105 

00106 

00107 

00108 

00109 

00110 

00111 

00112 

00113 

00114 

00115 

00116 

00117 

00118 

00119 

00120 

00121 

00122 

00123 

00124 

00125 

00126 

00127 


9F53 

01 00 01 


LD 

BC,SLEN 

»Daten aus Hauptspeicher 

9F56 

11 A9 AO 


LD 

DE,ZWSP1 

; werden nach ZWSP1 ge- 

9F59 

E5 


PUSH 

HL 

; laden. 

9F5A 

C5 


PUSH 

BC 

jRette Adr. Hauptspeicher 

9F5B 

ED BO 


LDIR 


; und SLEN. 

9F5D 

3A 40 01 


LD 

A, (BANKNR) 

;interne Banknummer 

9F60 

4F 


LD 

C, A 


9F61 

CD 5B BD 


CALL 

BANK 

;Hauptspeicher ausblenden 

9F64 

CI 

BANKRD 

POP 

BC 

;SLEN 

9F65 

2A 42 01 


LD 

HL,(SPBANK) 

;Bankspeicher 

9F68 

11 A8 9F 


LD 

DE,ZWSP 

Zwischenspeicher 

9F6B 

D5 


PUSH 

DE 

;Daten werden aus einer 

9F6C 

E5 


PUSH 

HL 

; Bank nach ZWSP gelesen. 

9F6D 

C5 


PUSH 

BC 


9F6E 

ED BO 


LDIR 



9F70 

CI 

BANKUR 

POP 

BC 

«SLEN 

9F71 

21 A9 AO 


LD 

HL,ZWSP1 

;SWAP-Speicher 

9F74 

Dl 


POP 

DE 

;Adr. Bankspeicher 

9F75 

C5 


PUSH 

BC 

;Daten aus ZWSP1 werden ii 

9F76 

ED BO 


LDIR 


; eine Bank gelesen. 

9F78 

97 


SUB 

A 


9F79 

CD 5B BD 


CALL 

BANK 

»Hauptspeicher einblenden 

9F7C 

CI 


POP 

BC 

;SLEN 

9F7D 

El 


POP 

HL 

Zwischenspeicher ZWSP 

9F7E 

Dl 


POP 

DE 

;Adr. im Hauptspeicher 

9F7F 

ED BO 


LDIR 


ZWSP -> Hauptspeicher 

9F81 

CI 


POP 

BC 

;B wird geholt 

9F82 

10 01 


DJNZ 

BANKS5 

;Ist B=0, dann Ende. 

9F84 

C9 


RET 



9F85 

11 00 01 

BANKS5 

LD 

DE,SLEN 


9F88 

2A 42 01 


LD 

HL,(SPBANK) 

;Adr. Banksp.+SLEN 

9F8B 

19 


ADD 

HL, DE 


9F8C 

22 42 01 


LD 

(SPBANK),HL 


9F8F 

2A 46 01 


LD 

HL,(SPASP) 

;Adr. Hauptsp.+SLEN 

9F92 

19 


ADD 

HL, DE 


9F93 

22 46 01 


LD 

(SPASP),HL 


9F96 

C3 52 9F 


JP 

BANKS3 


9F99 

97 

BANKS1 

SUB 

A 

;I st Banknr.0 oder 

9F9A 

BB 


CP 

E 

; >4, dann RET C. 

9F9B 

37 


SCF 



9F9C 

C8 


RET 

Z 


9F9D 

3E 05 


LD 

A f 5 


9F9F 

BB 


CP 

E 


9FA0 

D8 


RET 

C 


9FA1 

7B 


LD 

Ä, E 

;interne Banknr. liegt 

9FA2 

C6 03 


ADD 

&03 

; zwischen 4 und 7. 

9FA4 

32 40 01 


LD 

(BANKNR),A 
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00128 9FA7 

C9 



RET 




00129 








00130 9FA8 

(9FA8) 


ZWSP 

EQU 

$ 

;Zwischenspeicher 


00131 9FA8 

(A0A9) 


ZWSP1 

EQU 

$+257 

;SWAP-Speicher 


00132 








00133 9FA8 

(A1A9) 


ENDE 

EQU 

$+257+256 



Errors: 00000 

Warni 

ngs: 

00000 





SYMBOL TABLEs 







0140 BANKNR 


BD5B 

BANK 


9F00 BKINIT 

9F0A BANKCL 


9F2B BANKSW 


9F37 

BANKSO 


9F44 BANKS2 

9F52 BANKS3 


9F64 BANKRD 


9F70 

BANKUR 


9F85 BANKS5 

9F99 BANKS1 


A1A9 ENDE 


0100 

SLEN 


0141 SEITE 

0142 SPBANK 


0144 SPA 


0146 

SPASP 


9FA8 ZWSP 

A0A9 ZWSP1 

■ 


Listing * Programm 1 
100 REM ### Programm 1 

110 REM Loeschen des Zusatzspeichers 
120 1 

130 IF HIMEM=37631 THEN 170 
140 MEMORY &92FF 

150 LOAD"bankman.bin*,&9300:CALL &9300 
160 9 

170 T)=257:l=255:DEFJNT a:a=0: IBANKOPEN, 1 :d$=STRlNG$(l," ") 

180 t=TIME 

190 FOR m=0 TO n 

200 IBANKWRITE, @a, d$, m 

210 NEXT:PRINT"Zeit: <TIME-t)/300; "s" 



Listings Programm 2 

100 REM ### Programm 2 
110 REM BANKCLEAR 
120 9 

130 MODE HLOCATE 12,5 :PRINT"B ANKCLEAR" 

140 LOCATE 2,11 :PRlNT"Bei welcher Adresse soll BANKCLEAR 99 
150 LOCATE 2,13:INPUT "beginnen 99 ladresse 
160 IF adresse<0 THEN adresse=65536+adresse 
170 IF adresse>32767 AND adresse<42587 THEN 200 

180 LOCATE 2,18:PRINT"Die Adresse ist nicht erlaubt! 99 tCALL &BB06:RUN 
190 9 

200 LOCATE 2,11 :PRINT"BANKCLEAR wird nun gespeichert. " 

210 LOCATE 2,13:PRINT STRING$(38 P " ") 

220 LOCATE 2,15:PRINT"Sie koennen BANKCLEAR dann mit" 

230 LOCATE 4,17:PRINT"SAVE 9 BNKCLEAR 9 , b, &";HEX$(adresse) / ", &20" 

240 LOCATE 2,19»PRINT"auf Diskette sichern. " 

250 9 

260 MEMORY adresse-1 :RESTORE 320 
270 FOR n=adresse TO adresse+31 
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280 READ a$:POKE n, VAL("&"+a*) 

290 NEXT 

300 LOCATE 12,11:PRINT" ist ":LOCATE 1,24:END 
310 ’ 

320 DA TA 0E, 04, 79, CD, 5B, BD, C5,01, FF, 3F, 21,00, 40, 36,20,11 
330 DA TA 01, 40, ED, B0, CI, 0C, 79, FE, 08,20, E7,97, CD, 5B, BD, C9 


Listing : Programm 3 
100 REM *** Programm 3 

110 REM Speichern/Laden mit Block 1 (Zusatzspeicher) 

120 ' 

130 1F HIMEM=37631 THEN 170 
140 MEMORY &92FF 

150 LOAD"bankman. bin", i/9300:CALL &9300 
160 ' 

170 1=128:DEFINT a:a=0:1BANK0PEN,1:d$=STRING$(I, " n ):POKE hl5C,1 
180 spa=&3000:spe=&6FFF 

190 MODE 2HNPUT"1) Bereich speichern 2) Bereich laden n ia 
200 POKE &15C, 1:1F a=2 THEN GOTO 310 
210 ' 

220 •BANKURITE 
230 t=TIME:z=0 
240 FOR m=spa TO spe STEP 1 

250 POKE &15E, 1NT(m/256):POKE &15D,m-PEEK(&15E)*256 

260 IBANKUR1TE, @a,&15C, ztz=z+l 

270 NEXT:PRINT n Zeit: "/ (TlME~t)/300S n s n 

280 END 

290 • 

300 'BANKREAD 

310 t=TlME:z=0 

320 FOR m=spa TO spe STEP 1 

330 POKE &15E, lNT(m/256) :POKE &15D,m-PEEK(&15E)*256 

340 IBANKREAD, @a, &15C, z'.z=z*l 

350 NEXT:PRINT n Zei t •' ”! (TIME-t) /300 / "s" 


Listing i Programm 4 


100 REM *** Programm 4 
110 REM BANKSUAP in Basic 
120 • 

130 MODE 2HF H1MEM=12287 THEN 170 
140 MEMORY &2FFF 

150 LOAD n bankman.bin",&9300?CALL A9300 
160 ' 

170 l=128:DEFINT a:a=0:1BANKOPEN, 1:d$=STR!NG$(1, " ”):POKE &15C,1 
180 spa=&3000:spe=&6FFF 
190 ' 

200 INPUT"Bitte geben Sie die geuuenschte Bank an: n ,b:PRINT 
210 IF b<0 OR b>4 THEN PRINT"Falsehe Eingabe!":PR1NT:G0T0 200 
220 ' 
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230 c$="speichert.":GOSUB 260:bank=b:c$="laden. ":GOSUB 260 
240 PRINT"BANKSVAP ist beendet.":END 
250 ' 

260 IF bank=0 THEN RETURN 

270 PRINT"Bank" / bank;"wird ge"Ic$:z=(bank-l)*128 

280 FOR m=spa TO spe STEP 1 

290 n=@d$:GOSUB 340:d$=d$+"" 

300 n=815C:G0SUB 340 

310 1BANKREAD, 8a,815C,z:!BANKURiTE,8a, 8 dt, z'.z=z+l 

320 NEXT:RETURN 
330 ' 

340 POKE n+2, I NT(m/256):POKE n+1, m-256*PEEK(n+2) .‘RETURN 


L-.isti.ng s Programm 5 


100 REM *** Programm 5 
110 REM BANKSVAP in M-Code 
120 • 

130 MODE 1'.MEMORY 82FFF'.adr=89F00 

140 LOCATE S,9:PRINT"Die Verte von BANKSVAP werden" 
150 LOCATE 5,10:PRINT"gespeichert. " 

160 LOCATE 5,15:PRINT"Bitte warten Sie." 

170 zeile=490 


180 • 


190 zei le=zeile+10:IF zeile<>610 THEN 240 

200 MODE 2:LOCATE 5,9:PRINT"BANKSVAP wird unter 'BANKSVAP. BIN’ gespeichert. 
210 LOCATE 5,11 :PRINT"SA VE • BANKSVAP. BIN', b, 89F00, 8A7" 

220 SA VE"BANKSVAP. BIN", b, 89F00, 8 A 7 

230 PRINT:GOTO 310 

240 pruef=0:FOR n=adr TO adr+15 

250 READ a$:POKE n, VAL(" 8 "+a$):pruef=pruef+PEEK(n) 

260 NEXT 

270 READ a$:a=VAL(MID$(a$,3)I:adr=n:IF a=pruef THEN 190 
280 MODE 2: LOCATE 10,9:PRINT"FehIer in Zeile";zeile:PRlNT 
290 LIST 500- 
300 ' 


310 spa=&3000:spe=&6FFF:CALL &9F00,0,spa 
320 ' 

330 INPUT"Bitte geben Sie die gewuenschte Bank an: ",b 
340 CALL &9F00, b 

350 PRINT"BANKSVAP ist beendet. ":PRINT 
360 GOTO 330 
370 ' 

500 DA TA FE, 02,20,27, ED, 53, 44,01,0E, 04, 79, CD, 5B, BD, C5,01, = 8602 
510 DATA FF, 3F, 21,00, 40,36,20,11,01, 40, ED, B0, CI, 0C, 79, FE, = 8628 
520 DATA 08, 20, E7,97, CD, 5B, BD, 32, 41,01, C9, ED, 5B, 41,01, CD, = 871F 
530 DA TA 99,9F, 38,03, CD, 44,9F, DD, 5E, 00,16,00, ED, 53, 41,01,= 85F6 
540 DA TA CD, 99,9F, D8,06, 40,21,00, 40, 22,42,01,2A, 44,01,22, = 84 7A 
550 DA TA 46,01, C5, 01,00,01,11, A9, A0, E5, C5, ED, B0, 3A, 40,01, = 862A 
560 DATA 4F, CD, SB, BD, C1,2A, 42,01,11, A8,9F, D5, E5, C5, ED, B0, = 88D6 
570 DA TA CI, 21, A9, A0, Dl, C5, ED, B0, 9 7, CD, 5B, BD, CI, El, Dl, ED, = 8B3A 
580 DATA B0,C1,10,01,C9,11,00,01,2A,42,01,19,22,42,01,2A,= 8372 
590 DA TA 46, 01,19,22, 46,01, C3, 52,9F, 97, BB, 37, C8, 3E, 05, BB, = 85CC 
600 DA TA D8, 7B, C6,03, 32, 40,01, C9,00,00,00,00,00,00,00,00, = 8358 
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Der CPC 464 

programmiert sich selbst! 


Mit der folgenden RSX-Erweite- 
rung, die nur auf dem Schneider- 
CPC-464 lauffähig ist, können Sie 
den Computer sich selbst program¬ 
mieren lassen. So lassen sich z. B. 
DEF-FN-Funktionen per INPUT 
eingeben oder sich selbst modifi¬ 
zierende Programme schreiben. 

Sie erhalten ein lauffähiges Pro¬ 
gramm auf zwei Wegen: erstens 
durch Eingabe des Quellcodes und 
Assemblierung des Maschinenpro¬ 
gramms, oder zweitens durch Ab¬ 
tippen des fiasic-Loaders. Achten 
Sie beim l3asic-Loader aber sehr ge¬ 
nau auf die Numerierung der Pro¬ 
grammzeilen — Sie sehen später, 
warum! 

Nach dem Programmstart steht Ih¬ 
nen ein neuer RSX-Befehl zur Ver¬ 
fügung: 

|UNE,@a$ 

Im angegebenen String muß eine 
vollständige Basic-Zeile stehen: 

a$=“100 PRINT” 

a$=“150 FOR i=l 

TO 10:PRINT i:NEXT” 

Die Stringvariable kann aufgrund 
des CPC-Betriebssystems also nicht 
direkt übergeben werden, sondern 
nur auf dem Umweg über den Varia¬ 
blenzeiger. Diese Funktion wird mit 
dem „Klammeraffen“ (ASCII-Code 
64) aufgerufen. Diskettenbesitzer 


kennen das sicher schon vom ERA- 
und REN-Befehl. 

Ein Programm-Beispiel dafür: 

10 b$=“100 INPUT x$” 

20 |LINE,@b$ 

30 LIST 100 

Der Computer hat dann die Zeile 
100 in den Speicher übernommen 
und kann sie ausführen. So lassen 
sich z. B. auf sehr einfache Weise 
Funktionsplotter programmieren, 
die die darzustellende Funktion mit 
einem INPUT abfragen: 

10 INPUT “Welche Funktion”,a$ 

20 a$=“40 DEF FN f(x)=”+a$ 

30 |LINE,@a$ 

50 FOR i=l TO 3 
60 PRINT i;FN f(i) 

70 NEXT i 

Nun noch einige Eigenheiten des 
Programms, die von Ihnen unbe¬ 
dingt beachtet werden müssen: 

- Bei der Ausführung des LINE-Be- 
fehls wird der Basic-Stack vom 
Computer gelöscht. Dort befinden 
sich alle offenen FOR-NEXT- und 
WHILE-WEND-Schleifen und Rück¬ 
sprungadressen aus GOSUB-Unter- 
programmen. Sie müssen also dar¬ 
auf achten, daß der LINE-Befehl 
nicht innerhalb offener Schleifen 
oder in Unterprogrammen ausge¬ 
führt wird. Während Sie aufgrund 
letzterer Einschränkung eventuell 
Ihre Programmstruktur verändern 


müssen, lassen sich Schleifen meist 
sehr einfach in IF-THEN-Konstruk- 
tionen verwandeln. 

- Die zu programmierende Zeile 
muß eine höhere Zeilennummer be¬ 
sitzen als die Zeile, in der der LINE- 
Befehl steht. Das ist aber durchaus 
sinnvoll, da ja die neue Zeile erst 
noch ausgeführt werden soll. 

Zurück zum Basic-Loader: Dieser ist 
selbst ein Beispiel für die Verwen¬ 
dung des LINE-Befehls. Die Zeilen 
310-340 werden in Zeile 300 aus 
den DATA-Zeilen zwischen Zeile 
530 und 560 gelesen und sofort da¬ 
nach ausgeführt. 

Für Programmierer und sonstige In¬ 
teressierte einige Bemerkungen zur 
Funktionsweise von LINE: Das Pro¬ 
gramm übernimmt den String, der 
beim RSX-Aufruf angegeben wird, 
in den Eingabepuffer des Compu¬ 
ters. Dieser liegt beim CPC-464 zwi¬ 
schen den Adressen &ACA4 und 
&ADA3; er ist also 255 Zeichen 
lang, entsprechend der maximalen 
Eingabelänge des Editors. Dann 
schaltet LINE das Basic-ROM ein 
und ruft die Codierungs-Routine im 
Basic-Interpreter auf. Diese liegt 
beim CPC-464 an der Adresse 
&E6BC. Da der Aufbau der Codier- 
Routinen bei den beiden Nachfolge¬ 
computern CPC-664 und 6128 ver¬ 
ändert winde, lassen sich auch kei¬ 
ne neuen Einsprungstellen angeben. 
D ami t ist LINE nur auf dem Erst¬ 
lings-Computer von Schneider lauf¬ 
fähig. Martin Kotulla/LM 


Listing : LINE 

100 ' ********************************* 
110 * * * 

120 ' * RSX-Erueiterung LINE * 
130 ' * * 

140 • ********************************* 
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150 * 

160 ' Bitte bei der Eingabe die Zeilennummern beibehalten! 

170 • 

180 SYMBOL AFTER 254:SYMBOL 255, St66, &0, St3C, St66, St66, St66, St3C, &0 
190 MEMORY HIMEM-&50:start=HIMEM+ 1 
200 DEF FNmsb (a) s INT (a/256) AND 255 
210 DEF FNlsb(a)=UNT(a) AND 255 

220 FOR i=start TO start+St4C:READ a:sum-sum+a:POKE i,a:NEXT i 
230 IF sum=8381 THEN 250 ' Pruefsumme korrekt! 

240 PRINT CHR$(7){" * Fehler in den DATA-Zeilen! ":PRINT:LIST 410- 

250 FOR i=l TO 4:READ a:a=a+start 

260 va1ue=PEEK(a)+PEEK(a+l)*256-40960+start 

270 POKE a,FNlsb(va!ue):POKE a*l,FNmsb(value) 

280 NEXT i 

290 CALL start+14 • RSX einbinden 

300 READ a$: ,'LINE, @a$:x s x+l: IF x<4 THEN 300 

350 PRINT CHR$(24) + "SELBSTMODIFIZIERENDE PROGRAMME MIT !LINE”+CHR$(24) 
360 LOCATE 10,5:PRINT CHR$(164){" Martin Kotulla 1985" 

370 PR INT: PR INT STRING$(40,210) :PR1NT:PR1NT 

380 PEN 1:PR INT ” Diese RSX-Erueiterung erm"+CHR$(255) + "glicht" 

390 PR1NT:PRINT " die Entwicklung seibstmodifixierender" 

400 PR INT: PR INT ” Programme, z. B. : ” 

410 PR INT: PR INT: PEN 2 

420 PRINT " A$~"*CHR$(34)+"1000 DEF FN p(x)=PEEK(x)"+CHR$(34)+":" 

430 PR INT: PR INT " 1LINE,§A$" 

440 PRINT:PRINT:PRINT 

450 DA TA äj 05, &A0, &C3, &18, &A0, &4C, &49, &4E, &C5, &00,600, &00, &00, &00, &01,600 
460 DATA &A0, &21, &0A, &A0, &CD, &D1,&BC, &C9, &CD, &00, &B9, &21,&A4, &AC, tt 11, St A4 
470 DA TA StAC, St01, StFE, St00, Sei 3, St97, St77, SeED, StB0, StDD, St66, St01, StDD, St6E, St00, St4E 
480 DA TA St06, St00, St23, St5E, St23, St56, StEB, Stl 1, St A4, StAC, StED, StB0, Se21, St A4, StAC, SeCD 
490 DA TA StBC, StE6, StC9, StCD, St00, StB9, St3A, St02, StC0, St32, Se64, St01, StC9 
500 ' Daten zum Relokatieren des Maschinencodes *******x***x*x*x#***#*** 
510 DATA 0,3,15,18 

520 r Programmzellen, die mit LINE programmiert werden x****#*#*****#»#* 
530 DATA "310 MODE 1:1NK 1,0:1NK 0,13:INK 2,1" 

540 DATA "320 PAPER 0:BORDER 10:PEN 2:SPEED INK 30,20" 

550 DATA ”330 LOCATE 1,1: PR INT STRING$(40,210)" 

560 DATA "340 LOCATE 1,2" h 

570 END • --- 


L-. i 

st ing : 

LINE 

100 

r 

f 

**«**#*#**«*******«««**x*«***x«*«x***x*x****xx*xx*x*x***x*xx*«*#x 

110 

r 

/ 

* 

tf 

120 

f 

/ 

# 

LINE - Programmierte Eingabe von Programmzeilen # 

130 

r 

/ 

# 

# 

140 

f 

/ 

# 

NUR EUER DEN SCHNEIDER CPC-464 x 

150 

f 

/ 


X 

160 

r 

* 

****#**********#**#####*## XX# 

170 

r 




180 

t 


ORG 

&A000 ; Der Basic-Loader erzeugt relokatiblen Code 

190 

t 



200 

t 

INPBUF EQU 

&ACA4 ; Eingabe - und Editierpuffer beim CPC-464 
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210 ' 

UROMON EQU 

&B900 

1 KL UPPER ROM ENABLEt Basic-ROM einschalten 

220 1 

' ENCODE EQU 

&E6BC 

S ROM-Routine zur Codierung einer Zeile 

230 ' 

LOGEXT EQU 

&BCD1 

; KL LOG EXT bindet RSX-Routinen ein 

240 1 

t 




250 

’ RSXTAB 

DEFW NAMTAB 

; Zeiger auf Namenstabeile 

260 1 


JP 

LINE 

; Sprungvektor nach LINE 

270 





280 

NAMTAB 

DEFM 

"LIN” 

/ RSX-Name "LINE" 

290 


DEFB 

&C5,&00 

1 Wort- und Tabellenende 

300 





310 

SPACE 

DEFS 

&04 

/ Vier Bytes fuer das Betriebssystem 

320 





330 

IN IT 

LD 

BC, RSXTAB 

l Zeiger auf Sprungtabelle 

340 


LD 

HL, SPACE 

; Zeiger auf den Hilfsspeicher 

350 


CALL 

LOGEXT 

l RSX einbinden 

360 


RET 


/ Ruecksprung nach Basic 

370 





380 

LINE 

CALL 

UROMON 

} Basic-ROM einschalten 

390 





400 

’ CLRBUF LD 

HL, 1NPBUF 

; Zeiger auf Eingabepuffer 

410 

t 

LD 

DE, 1NPBUF 

! Ebenso 

420 

t 

LD 

BC, 254 

; Laenge des Puffers-1 

430 

r 

INC 

DE 

/ DE inkrementieren 

440 

f 

SUB 

A 

; Akku loeschen 

450 

r 

LD 

(HL) ,A 

1 An die erste Pufferstelle Null schreiben 

460 

r 

LD1R 


{ LDIR zum Loeschen des Puffers "missbraucht" 

470 

480 

r 

r DESCRI 

LD 

H, (IX+1) 

; Highbyte des Stringdescriptors aus CALL 

490 

t 

LD 

L, (IX+0) 

; Ebenso das Lowbyte 

500 

r 




510 

' GETLEN LD 

C, (HL) 

; Stringlaenge ins C-Register 

520 

t 

LD 

B, 0 

; Das zugehoerige B-Register loeschen 

530 

t 




540 

’ GETADR INC 

HL 

; Zeiger auf Stringadresse im Descriptor 

550 

f 

LD 

E,(HL) 

; Lowbyte der Stringadresse lesen 

560 

r 

INC 

HL 

; Zeiger auf das Highbyte der Stringadresse 

570 

r 

LD 

D,(HL) 

; Highbyte der Stringadresse lesen 

580 

t 




590 

• MOVSTR EX 

DE, HL 

; Ersetzt LD HL, DE 

600 

r 

LD 

DE, INPBUF 

; Zeiger auf Editierpuffer 

610 

f 

LDIR 

; String in den Puffer kopieren 

620 

r 




630 

' ENTER 

LD 

HL,INPBUF 

; Zeiger auf den Editierpuffer 

640 

f 

CALL ENCODE 

; ROM-Routine zur Codierung aufrufen 

650 

t 

RET 


; Ruecksprung nach Basic 


660 

670 

680 

690 

700 

710 

720 

730 

740 


Hilfsprogramm zur Feststellung des Computertyps (464/664/6128) 


COHPUT CALL UROHON 

LD A, (&C002) 
LD (&0164) ,A 
RET 

END 


Basic-ROM einschalten 

Modifikationsbyte des ROM-Headers lesen 
Im PEEKbaren RAM ab legen 
Ruecksprung nach Basic 
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Uhrzeiten 

rund um die Welt 


Dieses Programm simuliert auf den 
Schneider-Computern eine Welt¬ 
zeituhr. Neben der Greenwich 
Mean Time (GMT oder UTC) wer¬ 
den 20 weitere Uhrzeiten von Städ¬ 
ten und Ländern rund um den Glo¬ 
bus angezeigt 


Nach dem Start meldet sich das Pro¬ 
gramm mit einigen Bemerkungen 
zur Funktionsweise. Sie können 
dann die aktuelle Uhrzeit eingeben 
- wohlgemerkt als Greenwich-Zeit, 
das ist MEZ-Winterzeit minus 1 
Stunde bzw. MESZ-Sommerzeit mi¬ 
nus zwei Stunden. Die Eingabe er¬ 
folgt dabei getrennt nach Stunden, 
Minuten und Sekunden. Unsinnige 
Werte werden erkannt und zurück¬ 
gewiesen; die Eingabe muß dann 
mit einem korrekten Wert wieder¬ 
holt werden. 

iSJach einem Tastendruck wird der 
Bildschirm aufgebaut: In der ober¬ 
sten Zeile erscheint die Anzeige der 
GMT/UTC-Weltzeit, auf dem übri¬ 
gen Bildschirm die Ortszeiten der 
20 weiteren Städte. Folgende Orte 
werden angezeigt: 

London, Mitteleuropa, Jerusalem 
(Israel), Moskau (Sowjetunion), Te¬ 
heran (Iran), Karachi (Pakistan), 
Delhi (Indien), Bangkok (Thailand), 
Hongkong, Tokio (Japan), Sydney 
(Australien), Johannesburg (Süd¬ 
afrika), Wellington (Neuseeland), 
Honolulu (Hawaii), Los Angeles, 
Denver, Chicago, New York (alle 
USA), Santiago de Chile (Chile), Rio 
de Janeiro (Brasilien). 

Alle Ortszeiten werden in der 
Schriftgröße des MODE 2 ausgege¬ 
ben, nur die übergeordnete Weltzeit 
verwendet MODE-l-Lettern. 

Aus Zeitgründen erfolgt die Darstel¬ 
lung der Ortszeiten nur jeweils in 
Minutenabständen, während für die 
Weltzeit auch die Sekunden angege¬ 
ben werden. Martin Kotulla/LM 



Heltzeit ÜIC/OI: 

20: 25:30 


London (QtD 

20 : 

25 

Sudneg 

5 25 

Mitteleuropa 

21 : 

25 

Johannesburs 

22 : 25 

Jemale* 

22 : 

25 

Wellington 

3 : 25 

Moskau 


23 ; 

>s 

Honolulu 

10 : 25 

Teheran 


23 : 

: 55 

Los Angeles 

12 : 25 

Karachi 


1 : 

25 

Denver 

13 : 25 

Delhi 


1 : 

i 55 

Chicago 

14 : 25 

Banskok 


3 : 

: 25 

Heu York Citg 

15 : 25 

Hongkong 

4 

: 25 

Santiago de Chile 

IS : 2S 

Tokio 


S 

: 25 

Rio de Janeiro 

17 : 2S 
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Anwendungen 


I_,istir»gs CPC-Weltzeituhr 


100 • ******************************* 


110 ' * 
120 ' * 
130 ' * 


CPC-Ueltzeituhr 


140 • ******************************* 

150 ' 

160 • (C) Martin Kotulla 8.10.1985 



190 DIM city$(20), oftset (20) 

200 FOR i=l TO 20:READ city$(i),offset(i):NEXT i 

210 DATA London (GMT), 0 , Mitteleuropa, 1, Jerusalem,2 

220 DATA Moskau, 3, Teheran, 3.5, Karachi, 5, Del hi, 5.5 

230 DATA Bangkok, 7, Hongkong, 8, Tokio, 9, Sydney, 10, Johannesburg, 2 

240 DATA Uel1ington, 12,Honolulu,-10,Los Angeles,-8 

250 DATA Denver, -7, Chicago,-6,Neu York City,-5 

260 DATA Santiago de Chile,-4,Rio de Janeiro,-3 

270 1 Symbole und Umlaute ***************************************************** 
280 SYMBOL AFTER 32:REST0RE 370 
290 FOR i=128 TO 147 

300 FOR j-1 TO 7:READ a$:a(j) = VAL( n itX n +a$):NEXT j 

310 SYMBOL i+100,a(l) ,a(2) ,a(3),a(4) ,a(5),a(6) ,a(7) ,0:NEXT i 

320 SYMBOL 160,0,0,15,15,0,15,15,0 

330 SYMBOL 161,0,0,0, 0, 0,0,0,0 

340 SYMBOL 252, &66, &0, &66, t,66, &66, &66, &3E, 0 

350 SYMBOL 253, &66, &0, &3C, &66, &66, &66, &3C, &0 

360 SYMBOL 254,0,0, 3, 3, 3,0,0,0 

370 DATA 00111111,11110000,11110000,11110011,11111100,11110000,001111H 

380 DATA 11110000,00111100,11111100,00111100,00111100,00111100,11110000 

390 DA TA 00000011,00001111,00000011,00000011,00000011,00000011,001Hill 

400 DATA 11000000,11000000,11000000,11000000,11000000,11000000,1111U00 

410 DATA 00001111,00111100,00000000,00001111,001lH0 0 ,001 Hl00’ 001 mH 

420 DATA 11110000,00111100,00111100, Hl 10000,00000000,00111100,11111100 

430 DA TA 00001111,00111100,00000000,00000011,00000000,001Hl 00,90B 1111 

440 DATA 11110000,00111100,00111100,11110000,00111100,00111100,11H0 000 

450 DA TA 00000011,00001111,00111100, Hl10000,11111111,00000000,000000H 

460 DATA 11110000,11110000,11110000, Hl 10000,11111100,11110000,11111100 

4 70 DA TA 00111111,00111100,00111100,001 Hill, 00000000,00111100,00001Ul 

480 DATA 11111100,00001100,00000000,11110000,0011ii00,00*11100,11110000 

490 DA TA 00001111,00111100,‘00111100,001Hill, 00111100> 00111100» 00001 Hl 

500 DATA 11110000,00111100,00000000,11110000,00111100,0011H00, Hl 10000 

510 DATA 00111111,00111100,00000000,00000000,00000011,00000011,00000011 

520 DATA 11111100,00111100,00111100,11110000,11000000,11000000,11000000 

530 DA TA 00001111,00111100,00111100,00001111,00111100,00111100,00001 lH 

540 DATA 11110000,00111100,00111100,11110000,00111100,00111100,11110000 

550 DA TA 00001111,00111100,00111100,00001 Hl, 00000000,00111100,00001 Hl 

560 DATA 11110000,00111100,00111100,11111100,00111100,00111100,111100i 

570 # Titel und Anleitung ***************************************************** 

580 CLS.-MODE 1 

590 INK 1,0: INK 0,13:INK 2,0,3:INK 3,1 
600 PAPER 0:BORDER 10:PEN 3:SPEED INK 30,20 
610 LOCATE 1,1:PRINT STRING$<40,210) / 
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620 LOCATE 1,2:PRINT CHRS(24)+SPACE$(14)*"WELTZEITUHR"+SPACES(15)+CHRS(24) 

630 LOCATE 10,S:PRINT CHRS(164)i" Martin Kotul Ja 1985” 

640 PRINT STRINGS(40,210) :PRINT 

650 PEN liLOCATE 1,10:PRINT " Dieses Programm stellt auf dem" 

660 PRINTiPRINT " Bildschirm eine Weltzeituhr dar." 

670 ' Eingabe der Uhrzeit xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
680 PEN 3: PR INT: PR INT:PRINT" Bitte geben Sie die GMT-Uhrzeit ein!" 

690 PR INT:PRINT " Diese entspricht MEZ -1 Stunde. " 

700 LOCATE 1,19:INPUT" Stunden? ", hour:hour=INT(hour) 

710 1F hour<0 OR hour>23 THEN PRINT CHR$(7)1:GOTO 700 

720 LOCATE 1,21:INPUT" Minuten? ",minute:minute=INT(minute) 

730 1F minute<0 OR minute>59 THEN PRINT CHR$(7)1:GOTO 720 
740 LOCATE 1,23:INPUT" Sekunden? ", sec '• sec=lNT(sec) 

750 1F sec<0 OR sec>59 THEN PRINT CHR$(7);:GOTO 740 
760 PEN 2 

770 LOCATE 25,19:PR1NT CHR$(1S0);STRING$(13,154);CHR$(156) 

780 LOCATE 25,20:PRINT CHRS(149) ;SPACE$(13) iCHRS(149) 

790 LOCATE 25,21:PRINT CHRS(149)1" Start durch ";CHR$(149) 

800 LOCATE 25,22:PRINT CHR$(149)1 SPACES(13)}CHR$(149) 

810 LOCATE 25,23:PR1NT CHR$(149)1" Tastendruck "ICHRS(149) 

820 LOCATE 25,24:PRINT CHR$(149);SPACE$(13);CHR$(149) 

830 LOCATE 25,25:PR1NT CHR$(147);STRING$(13,154);CHR$(153) 

840 WH ILE INKEYS s "":WEND 

850 ’ Stadtliste ausgeben ***************************************************** 
860 MODE 2: PEN 1 
870 FOR i =1 TO 10 

880 LOCATE I0,2*i+3:PR1NT city$(i); 

890 NEXT i 

900 FOR i=ll TO 20 

910 LOCATE 44,2*i-17:PRlNT city$(i); 

920 NEXT i 

930 ’ Umrandungen der Felder zeichnen 

940 LOCATE 17,1:PR1NT CHR$(150);STR1NG$(44,154);CHR$(156) 

950 LOCATE 6,3 

960 PRINT CHR$(150)fSTRING$(10,154);CHR$(155);STRING$(22,154)iCHR$(158)1 
970 PRINT STRING$(21,154)}CHR$(155);STR1NG$(12,154)1CHR$(156) 

980 FOR i=4 TO 24:LOCATE 6,i:PRINT CHR$(149)i 

990 LOCATE 40,i:PRINT CHR$(149)/:LOCATE 75, i .‘PRINT CHR$(149); 

1000 NEXT i 
1010 LOCATE 6,25 

1020 PRINT CHR$(147)1 STRINGS(33,154);CHR$(155);STR1NG$(34,154)iCHRS(153) 

1030 LOCATE 17,2: PR INT CHRS (149) ! " Weltzeit UTC/GMT:"; 

1040 * Weltzeiten erstmalig ausgeben und Timer starten ****###*#*##*#*##***##*# 

1050 GOSUB 1280 

1060 EVERY 50 GOSUB 1090 

1070 GOTO 1070 

1080 ' Hauptzeit formatiert ausgeben «*******xxxx##x#***xxx*x**xx*«*xxxxx*#xx** 

1090 LOCATE 45,2 

1100 hourx$=MID$(STRS(hour), 2) 

1110 IF LEN(hourx$)=l THEN hourx$=" "+hourx$ 

1120 minutex$=MID$(STRS(minute),2) 

1130 IF LEN(minutexS)=l THEN minutexS="0"+minutexS 
1140 secxS=MlDS(STRS(sec),2) 

1150 IF LEN(secxS)=l THEN secxS="0"+secxS 

1160 ptS=hourxS:GOSUB 1590:PRINT CHRS(160);CHRS(161)} 
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1170 pt$=minutex$:GOSUB 1590:PRINT CHR$(160);CHR$(161 )/ 

1180 pt$=secx$:GOSUB 1590 
1190 PRINT " ”SCHR$(149); 

1200 DI 

1210 ' Uhrzeit weiter laufen lassen ******************************************** 
1220 sec=sec+l 

1230 IF sec=60 THEN sec=0:minute=minute+l 
1240 IF minute=60 THEN minute=0:hour=hour+l 
1250 IF hour=24 THEN hour=0 
1260 IF sec<>0 THEN EU RETURN 

1270 ' Uhrzeiten der ersten 10 Staedte fortschreiben ************************** 

1280 FOR i=1 TO 10 

1290 hour2=lNT(hour+offset(i)) 

1300 minute2=minute 

1310 IF hour2>23 THEN hour2=hour2-24 

1320 IF INT(offset(i))=offset(i) THEN 1360 

1330 minute2=minute2+30 

1340 IF minute2>60 THEN minute2=minute2-60:hour2=hour2+l 

1350 ' Uhrzeiten ausgeben ***************************************************** 

1360 LOCATE 30,2*i+3 

1370. hour$=MID$(STR$(hour2),2) 

1380 IF LEN(hour$)=l THEN hour$=" n +hour$ 

1390 minute$=MID$(STR$(minute2),2) 

1400 IF LEN(minute$)=l THEN minute$= H 0 n +minute$ 

1410 PRINT hour$; n ’• n Sminute$ 

1420 NEXT i 

1430 \ Staedte 11-20: Zeiten fortschreiben ************************************ 

1440 FOR i=ll TO 20 

1450 hour2=lNT(hour+offset(i)) 

1460 IF hour2>24 THEN hour2=hour2~24 
1470 IF hour2<0 THEN hour2=hour2+24 

1480 • Formatierte Zeitausgabe der uebrigen Staedte *************************** 

1490 LOCATE 66,2*i-17 

1500 hour$=MlD$(STR$(hour2),2) 

1510 IF LEN(hour$)=1 THEN hour$= n "+hour$ 

1520 minute$=MID$(STR$(minute), 2) 

1530 IF LEN(minute$)=l THEN minute$= n 0”+minute$ 

1540 PRINT hour$!" : "iminute$ 

1550 NEXT i 
1560 EI 
1570 RETURN 

1580 I Unterprogramm: Ausgabe von PT$ in MODE 1-Lettern *********************** 
1590 FOR y=l TO 2 

1600 IF y=l THEN IF ASC(pt$)=32 THEN PRINT SPACE$(2)i:GOTO 1630 
1610 char=228+2*(ASC(MID$(pt$, y))-48) 

1620 PRINT CHR$(char);CHR$(char+l )/ 

1630 NEXTy:RETURN 



Comp uter 


51 


Schau 






Anwendungen 


DATA-PRO - 

Ein komfortables Datei- 
verwaltungsprogramm 


Schon in Heß 4/85 der Computer- 
Schau und auch der ersten Ausga¬ 
be unseres ComputerSchau-Kom- 
paktwissens über die Schneider 
CPC’s haben wir ein Programm zur 
Dateiverwaltung gebracht Auf¬ 
grund des enorm hohen Leserrück¬ 
laufes und der ebenso hohen Nach¬ 
frage nach derartigen Program¬ 
men haben wir uns entschlossen 
auch in dieser Ausgabe damit zu 
dienen . 


Das schon genannte Dateiverwal¬ 
tungsprogramm hatte (wie wir vie¬ 
len Zeitschriften und Anrufen ent¬ 
nehmen konnten) alle begeistert, 
die es korrekt abgetippt hatten. An¬ 
dererseits aber wurden wir auch 
noch gebeten, ob wir nicht noch 
diese oder jene Eigenschaft mit ein¬ 
bauen könnten. Sicherlich wäre 
dies machbar, aber wir wollen ja 
keine Software verkaufen, sondern 
Ihnen Anregungen, Tips und Kniffe 
mitteilen, die Sie beim Umgang mit 
Ihren CPC’s verwerten können. 

In diesem Programm sind nun eini¬ 
ge der Wünsche realisiert worden. 
Welches der beiden Programme für 
Sie nun das richtige ist, müssen Sie 
selbst entscheiden. Vielleicht aber 
passen Sie eines der beiden Pro¬ 
gramme an Ihre speziellen Wünsche 
an und haben dann die genau für 
Sie passende Dateiverwaltung. 
Derjenige, der Probleme beim Ab¬ 
tippen hat, oder die Mühe der Ein¬ 
gabe scheut, kann alle größeren Pro¬ 
gramme dieses Heftes auch beim 
Franzis-Software-Service als „Ab¬ 
tipphilfe“ erhalten. 


Programmbeschreibung: 

DATA-PRO ist ein universelles Pro¬ 
gramm zur Verwaltung von Dateien 
jeglicher Art. Es besitzt einen Mas¬ 
kengenerator zur Erstellung der Ein¬ 
gabe- und der Druckmaske und ist 
voll menügesteuert. Als Besonder¬ 
heit sollen auch gleich die komfor¬ 
tablen Such-, Sortier- und Druck¬ 
möglichkeiten angeführt werden, 
die selbst bei käuflicher Software 
oft nicht in diesem Maße gegeben 
sind. Weiterhin verfügt das Pro¬ 
gramm über ein Systemmenü das es 
erlaubt, Bildschirmfarben zu än¬ 
dern oder auch Disketten- oder Kas¬ 
settenfunktionen aufzurufen. 

Die Funktionen im einzelnen: 

1. Nach dem Programmstart erfolgt 


im Menü die Abfrage nach „neuer“ 
oder „bestehender“ Datei. Neu be¬ 
deutet, daß die komplette Datei erst 
neu definiert werden soll. Beste¬ 
hend heißt, daß diese Datei bereits 
existiert und von Band oder Disket¬ 
te geladen werden soll. 

2. Soll eine neue Datei erstellt wer¬ 
den, so stehen folgende Auswahl¬ 
möglichkeiten zur Verfügung: 

- Datei und Maske erstellen 

Die neue Datei muß definiert sein, 
bevor man mit ihr arbeiten kann. 

- Daten eingeben 

Der normale Eingabemodus. 

- Datei abspeichern 

Dient zum Abspeichern der einge¬ 
gebenen Daten. 

Der letzte Punkt dieses Untermenüs 
ermöglicht, wenn noch keine Daten 
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DftrEivrwftiritfcs-pRocftA* -MiA-m- ♦ ms n 


Haue: Hw Iler, Peter < 




Alte» anjemmn... 

®nra>: Heitere htn 
I: Anden 
L : Imebn 
M s Sareeck m Hnat 


Aatei : Telefon 
Datensätze: 10 
Datenfelder: 2 
CesMtbytes: 400 

Kode: Daten einseben 


Statusanzeigen geben Auskunft über Dateinamen, Anzahl der Datensätze usw* 


eingegeben wurden auch das Ab¬ 
speichern der reinen Datei- und 
Maskendaten. 

3. Eingeben der Basisdaten und de¬ 
finieren einer Datei: 

- Abfrage des Dateinamens 

- Angabe der maximalen Werte der 
Datenfelder und Datensätze 

-Angabe der Bezeichnungen und 
Länge der einzelnen Datenfelder 

- Definition der Eingabemaske 

Die Bezeichnungen und Längen der 
einzelnen Datenfelder werden spä¬ 
ter auch in der Eingabemaske mit 
ausgegeben. Die Festlegung des 
Maskenaufbaues erfolgt mittels Cur¬ 
sorsteuerung und wird durch die 
COPY-Taste fixiert. 

4. Das Hauptmenü. Es besteht aus 
folgenden Menüpunkten: 

- Daten eingeben 

Hier kann ein neuer Datensatz ein¬ 
gegeben und dann der bereits beste¬ 
henden Datei hinzugefügt werden. 

- Daten suchen 

Nach Angabe des zu durchsuchen¬ 
den Datenfeldes erfolgt die Abfrage 
des Suchbegriffes. Der Suchbegriff 
kann aus einem kompletten Wort 
oder auch aus sogenannten „Wild¬ 
cards“, also den sogenannten „Aste¬ 
risks“ (* = Sternchen) bestehen. 
Das heißt bei Eingabe von *er wer¬ 
den alle Einträge welche mit „er“ 
enden, angezeigt. 

- Drucken 

Dies ist auf zwei Weisen möglich.. 
Einmal ohne eine bestimmte Druck¬ 
maske in einer vorgegebenen Form. 
Hierbei kann angegeben werden, 
welcher Datensatz gewünscht wird 
(Einzeldruck). Ansonsten werden 
alle Datensätze „angedruckt“. Zum 
anderen ist aber nach Erstellen ei¬ 
ner Druckmaske auch eine forma¬ 
tierte Ausgabe möglich. 


- Anzeigen der gesamten Datei. 
Diese erfolgt über Menüsteuerung. 
Über diesen Punkt sind auch beste¬ 
hende Datensätze lösch- oder än¬ 
derbar. 

- Ändern der Eingabemaske 
Auch nach längerem Arbeiten ist 
dies noch möglich. 

- Datei laden 

Eine von DATA-PRO erstellte Datei 

- inklusive der Maskendaten - kann 
geladen werden. (Im Speicher ste¬ 
hende Werte werden hierdurch ge¬ 
löscht!) 

- Datei abspeichern 

„Saven“ der Datei auf Band oder 
Diskette. 

- Datei sortieren 

Nach entsprechender Eingabe des 
zu sortierenden Feldes und der 
Feldnummer bis zu der sortiert wer¬ 
den soll, wird die Umsortierung 


durchgeführt. Zu beachten ist, daß 
der Sortiervorgang beispielsweise 
bei einer Datei von mehr als 100 
Sätzen (programmbedingt) schon ei¬ 
ne Zeitdauer von mehr als 30 Minu¬ 
ten beanspruchen kann. Deshalb 
sollte man wirklich nur soviel sor¬ 
tieren lassen, wie erforderlich ist. 

— Progranunende 

Sicherheitshalber wird hier noch 
abgefragt, ob abgespeichert werden 
soll. Anschließend erfolgt ein 
RESET. 

- Systemmenü 

Wie schon angeführt, können die 
Bildschirmfarben den eigenen Vor¬ 
stellungen angepaßt werden. Eben¬ 
falls möglich bei diesem Programm¬ 
punkt ist das Arbeiten mit Disket¬ 
ten- und Kassettenbefehlen. 

Viel Erfolg beim Verwalten Ihrer 
Daten. Jens Krise/LM 


LI st ing : Dateiverwaltungsprogramm DATA-PRO 


100 f 

110 r (c) 1985 by Jens Kriese 
120 • 

130 OPENOUT"duatoy ":MEMORY H1MEM-1 tCLQSEOUT 
140 ON ERROR GOTO 3820 
150 ON BREAK GOSUB 5020 
160 f - variablen 
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170 MODE 2 

180 D1M t$(20),ax(20),ay(20),d$(10,20),dd$(10,20), 1(20), I $(20), sort(20), dz$ (10), 
dx (20), dy (20), g$ (20), dxa (20), dya (20) 

190 FOR i=1 TO 20:ax(i)=l:ay(i)=l:NEXT 

200 dt=5:x=10:name*= nn :u=0:lNK 0,0:INK 1,24:B0RDER 0 

210 GOSUB 5120 

220 ' - startmenue 

230 CLS 

240 LOCATE 10,10:PRINT”<1> Neue Datei erstellen” 

250 LOCATE 10,12:PRINT”<2> Bestehende Datei bearbeiten” 

260 GOSUB 670 
270 IF men=l THEN 300 
280 IF men=2 THEN 400 
290 GOTO 260 

300 '- nenue neue datei 

310 CLS: CLS Hl 

320 LOCATE 10,9:PRINT”<1> Datei und Maske definieren” 

330 LOCATE 10,11:PR1NT”<2> Daten eingeben” 

340 LOCATE 10,13:PRINT”<3> Datei abspeichern” 

350 GOSUB 670 

360 IF men=l THEN 1290 

370 IF men=2 THEN 400 

380 IF men=3 THEN GOSUB 1070 

390 GOTO 310 

400 ' - menue best, datei 

410 ON BREAK GOSUB 5020 
420 ON ERROR GOTO 3820 
430 CLS:CLSHl:PEN 1 

440 L0CATEH2,2, 7:PRINTH2, ”Mode: Hauptmenue ” 

450 LOCATE 10,3:PRINT”<0> Daten eingeben” 

460 LOCATE 10,4:PRINT”<1> Daten suchen” 

470 LOCATE 10,6:PRINT”<2> Drucken” 

480 LOCATE 10,7:PRINT”<3> Anzeigen gesamte Datei” 

490 LOCATE 10,9:PRINT”<4> Aendern Eingabemaske” 

500 LOCATE 10, ll:PRINT”<5> Datei laden" 

510 LOCATE 10,12:PRINT”<6> Datei abspeichern" 

520 LOCATE 10,14:PRINT”<7> Sortieren Daten” 

530 LOCATE 10,16:PRINT"<8> Programm beenden” 

540 LOCATE 10,17:PRINT”<9> Systemmenue” 

550 GOSUB 670 
560 IF men=0 THEN 2030 
570 IF men=l THEN 2610 
580 IF men=2 THEN 3880 
590 IF men=3 THEN 1790 
600 IF men=4 THEN 1570 
610 IF men=5 THEN GOSUB 750 
620 IF men=6 THEN GOSUB 1070 
630 IF men=7 THEN 2940 
640 IF men=8 THEN 3550 
650 IF men=9 THEN 3610 
660 GOTO 400 

670 ' - eingabe bei menue 

680 i$=”” 

690 PR1NTH3, "Bitte uaehlen Sie eine der Menue-Moeglichkeiten aus...>"!:LINE INPU 
TH3, i$ 
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700 IF i$="" THEN 690 

710 i$ s LEFT$(i$, 1) : IF ASC(it)<48 OR ASC(i$)>57 THEN 680 
720 men=VAL(i$) 

730 CLS03 
740 RETURN 

750 ' - datei laden 

760 CLSsCLSUl 
770 name$="":u=0 
780 CLSH2 

790 LOCATE02,2, 7:PR1NT«2, "Mode: Datei laden" 

800 PRINT03, "Name der zu ladenden Datei:L1NE INPUT43, lal$:la$=LEFT$(lal$,8 
)*”.dat" 

810 ERASE d$, sort, dx, dy, dxa, dya, g$ 

820 UINDOU SWAP 0,3 
830 OPEN IN lat 
840 INPUT09, x 
850 INPUT119, dt 
860 FOR 1=1 TO dt 
870 INPUT«9,t$(i) 

880 INPUT09,ax(i) 

890 1NPUTH9, ay(i) 

900 INPUT 119, l(i) 

910 1NPUTÜ9, lt(i) 

920 NEXT 

930 D1M d$(x,df),dx(df),dy(df),g$(df),dxa(df),dya(df),sort(x) 

940 FOR ii=l TO x 
950 FOR i= 1 TO dt 
960 INPUTH9, d$(ii, i) 

970 NEXT:NEXT 
980 CLOSEIN 
990 UINDOU SWAP 0, 3 
1000 name$=lal$ 

1010 CLSi2:CLSS3 

1020 PRINT*2:PR1NT*2," Datei : "name$ 

1030 PR INT112, " Datensaetze: "x 
1040 PR INT 112, " Datenfel der: "dt 

1050 PRINTÜ2," Gesamtbytes:"; :FOR aa=l TO df:u=u+l(aa):NEXT:PRINT112,x*u 
1060 RETURN 

1070 '- datei saven 

1080 CLS:CLS01 

1090 LOCATE02,2,7:PRINT02, "Mode: Datei abspeichern" 

1100 UINDOU SUAP 0,3 

1110 OPENOUT LEFT$(name$,8) + ".dat" 

1120 PRINT09, x 
1130 PRINT99, dt 
1140 FOR i=l TO dt 
1150 PRINT09, t$(i) 

1160 PRINT09,ax(i) 

1170 PRINT09, ay(i) 

1180 PRINT09, l(i) 

1190 PRINT09, l$(i) 

1200 NEXT 
1210 FOR ii=l TO x 
1220 FOR i= 1 TO dt 
1230 PR1NT09, d$(ii, i) 
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1240 NEXT:NEXT 
1250 CLOSEOUT 
1260 WINDOW SWAP 0,3 
1270 CLS*3 
1280 RETURN 

1290 ' - basisdaten eingeben 

1300 CLStCLS§2 

1310 L0CATE42,2, 7:PR1NT*2, "Mode: Basisdaten" 

1320 PR INT13, "Name der neuen Datei...>";:LINE INPUTU3, i$:name$=LEFT$((i*+" 

"),8) 

1330 L0CATE42,2,2:PR 1NT#2, "Datei : "namet 

1340 CLS# 1 :CLS#3 

1350 PRINTi3, "Wieviele Datensaetze(<2000) ...>";:LINE INPUT #3,x$:x=VAL(x$) 

1360 PRINT#2, " Datensaetze:"x 
1370 CLS#l:CLS#3 

1380 PRINT#3, "Wieviele Datenfel der ( <21).. .>"; :LINE INPUT *3, df$ :df=VAL(df$) 

1390 PRINT#2, " Datenfelder:"df 

1400 ERASE d$,sort, dx, dy, g$, dxa, dya:DIM d$(x, df), g$(df), dxa(df), dya(df), dx(df),d 
y(df), sort(x) 

1410 CLS#l:CLS#3 
1420 LOCATE 1,3 
1430 FOR i=1 TO df 

1440 PR1NT13, "Bezeichnung Datenfeld"i ". :LINE 1NPUT13, t$<i) 

1450 PRINTH3, "Laenge. ..>";:LINE INPUTI3, I $ : I ( i ) = VAL( 1$) 

1460 J$(i) s ""tFOR ii=l TO 1(i):1$(i) = 1 $(i) + "iNEXT 

1470 PRINT" Nr. "i": "lt$(i)I" ";I$(i) 

1480 NEXT 

1490 PRINTH3, "Alle Eingaben OK sGOSUB 3500:IF i$="N" THEN 1500 ELSE 1570 

1500 CLSM1:PRINT#1iPRINTHl, " Welche Bezeichnung soll"," geaendert werden ?" 

1510 PRINTH3, "Nr... >"IiLINE 1NPUTH3,i$:i = VAL(i$) 

1520 PR INT# 3, "Neue Nr. "i".. .>";:LINE INPUTÜ3, t$(i) 

1530 PRINT13, "Neue Laenge. ..>"/ :LINE 1NPUTU3, i$:1(i) = VAL(i$) 

1540 1$(i) = "":FOR ii=l TO 1(i):1 $(i)=1 $(i) + ”. ":NEXT 

1550 CLS:PRINT:PRINT:FOR i=l TO df:PRINT" Nr."i": ";t$(i)I" ";I$(i):NEXT 

1560 GOTO 1490 

1570 ' - Positionierung 

1580 PRINT§2," Gesamtbytes:";:FOR aa=l TO df:u=u+1(aa):NEXT:PRINT#2, x*u 
1590 CLS 

1600 FOR i=1 TO df 

1610 xx=ax(i):yy=ay(i):xxl=xx:yyl=yy 

1620 CLS#3:CLS#l:PRINT#l:PRINT§l," Bitte positionieren Sie"," mit den Cursor-Tas 

ten in der Eingabemaske den Platz fuer das Daten 

feld"i 

1630 PRINTH :PRINT#1, " COPY = Fixieren" 

1640 LOCATE xxl, yyliPRINT STRlNG$(LEN(t$(i))+LEN(I$(i))+2, " ") 

1650 LOCATE xx,yy:PR!NT t$(i);" ";l$(i) 

1660 IF i>l THEN FOR ai=l TO i-l:LOCATE ax(ai),ay(ai):PRINT t$(ai);" ";l$(ai):N 

EXT 

1670 xxl=xx:yyl=yy 
1680 i$=1NKEY$ 

1690 IF i$=CHR$(240) AND yy>l THEN yy=yy-l 

1700 IF i$=CHR$(241) AND yy<20 THEN yy=yy+l 

1710 IF i$=CHR$(242) AND xx>l THEN xx=xx-l 

1720 IF i$=CHR$(243) AND xx<50 THEN xx=xx+1 

1730 IF i$=CHR$(224) THEN ax(i)=xx:ay(i)=yy:GOTO 1750 
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1740 GOTO 1640 

1750 PRINTt3, "Alle Eingaben OK.. .>"}tGOSUB 3500:IF i$="N" THEN 1620 
1760 PRINTt3 
1770 NEXT i 
1780 GOTO 300 

1790 ' - anzeigen gesamte datei 

1800 i=i:Ia=l:ai=l:CLS:CLS*l 

1810 L0CATEt2,2, 7:PRINTt2, "Mode: Anzeigen Datei" 

1820 LOCATEtl, l,2:PRINTtl," < - Zurueckblaettern" 

1830 PRINTtl, " > = Vorblaettern" 

1840 PRINTtl, " S = Stop" 

1850 PRINTtl," A - Aendern" 

1860 PRINTtl, " L s Loeschen" 

1870 PRINTtl, " M = Zurueck ins Menue" 

1880 FOR ii=l TO df:LOCATE ax(ii),ay(ii):PR1NT t$(ii)!" "ld$(i, ii)/:FOR aa=LEN( 
d$(i,ii)) TO I(ii)-l:PRINT" "f:NEXT aa:PRINT 
1890 NEXT ii 

1900 LOCATEtl, 3,12:PRINTtl,"Datensatz:";i/" " 

1910 dat=i 

1920 i$=LOUER$(INKEY$) 

1930 IF i$="s" THEN ia=l 
1940 IF i$="." THEN ia=0:ai=l 
1950 IF i$="," THEN ia=0:ai=-l 

1960 IF i$-"a" AND ia=l THEN GOSUB 2410:GOTO 1810 

1970 IF it s "l” AND ia=l THEN GOSUB 2330:GOTO 1810 

1980 IF i$="m" THEN 400 

1990 IF ia=0 THEN i=i+ai 

2000 IF i<l THEN i=x:ai--l 

2010 IF i>x THEN i=l 

2020 GOTO 1880 

2030 ' - daten eingehen 

2040 ii=1 

2050 CLS : CLS #3 •' CLStl 

2060 L0CATEt2,2,7:PRlNTt2, "Mode: Daten eingeben" 

2070 PRINTtl:PRINTtl, " Bitte geben Sie die Daten ein. Eingaben mit <Enter> a 
bschliessen. " 

2080 FOR ai=ii TO x:IF d$(ai, 1) = "" THEN ii=ai:G0T0 2110 
2090 NEXT 

2100 PRlNTt3, "Die Datei "Inamet;" ist voll !!!":FOR i=l TO 2000:NEXT:GOTO 400 
2110 LOCATEtl,2,12:PRINTtl, "Datensatz:"Iai 
2120 dat=ai 

2130 FOR il=l TO df:LOCATE ax(il),ay(il) 

2140 PRINT t$(il);" ”}l$(il):NEXT 

2150 FOR i2=l TO df 

2160 LOCATE (ax(i2)+LEN(t$(i2))+2),ay(i2):PRINT l$(i2);"<" 

2170 LOCATE ax(i2),ay(i2) ‘.PRINT t$(i2)i" ";:LINE INPUTlit 
2180 d$(ai, i2)=LEFT$(i$, Ki2)) 

2190 GOSUB 2570 
2200 NEXT i2 

2210 PR!NTt3, "Eingaben OK... >"!:GOSUB 3500:IF i$="N" THEN d$(ai, 1) = "":GOTO 2050 
2220 PRINTt3 

2230 CLStl:PRINTtl:PRINTtl, " Daten angenommen... " 

2240 PRINTtl:PRINTtl, " <ENTER> = Weitere Daten" 

2250 PRINTtl, " A = Aendern" 

2260 PRINTtl, " L = Loeschen" 
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2270 PRINTil, " M = Zurueck ins Menue" 

2280 i$=LOWER$(INKEY*):IF i$="" THEN 2280 
2290 IF i$="m" THEN 400 

2300 IF i$="a" THEN GOSUB 2410:FOR i2=l TO dfsGOSUB 2S70:NEXT 
2310 IF i$="l" THEN GOSUB 2330:FOR i2=l TO df:GOSUB 2570:NEXT 
2320 GOTO 2030 
2330 ' - up loeschen 

2340 L0CATEi2,2,7:PRINTi2,"Mode: Loeschen Datei” 

2350 PRlNTi3, "Wirklich loeschen.:GOSUB 3500 
2360 IF i$="N” THEN PR INT*3:RETURN 
2370 FOR aa=l TO dt:d$(dat, aa)="":NEXT 
2380 PRINT«3, "Datei geloescht !" 

2390 FOR aa=l TO 1000:NEXT: CLSil:PRINT43 
2400 RETURN 

2410 ' - up aendem 

2420 CLS: CLSil 

2430 PRINTil: PRINTil, " Um Daten zu aendern bitte die Feldnummer eingeben." 

2440 L0CATE42,2, 7:PRlNTi2, "Mode: Aendern Daten " 

2450 FOR i2=l TO dt:GOSUB 2600:NEXT 

2460 PRINTt3, "Welche Nr. soll geaendert werden. ..>"}:LINE INPUTU3, i$:oo=VAL(i$) 
2470 IF oo>df OR oo=0 THEN 2460 

2480 PRINT03, "Neuer Text...>";:LINE INPUT43, i$:i$=LEFT$(i$, l(oo)) 

2490 d*(dat,oo)=i$ 

2500 FOR 12=1 TO dt .‘GOSUB 2570:NEXT 
2510 PR1NT43 

2520 CLSil:PRINTil:PRINTil, " A = Weiter aendern" 

2530 PRINTil, " <ENTER> = Zurueck" 

2540 i$=LOWER$(INKEYS):IF i$="" THEN 2540 
2550 IF i$="a" THEN 2420 
2560 CLSil:RETURN 

2570 ' - up printen datensatz 

2580 LOCATE ax(i2),ay(i2) tPRINT t$H2); " ”;d$(dat, i2) ; :FOR aa=LEN(d$(dat, i2)) T 

0 I(i2)-l:PRINT" "f:NEXT aa:PRINT 
2590 RETURN 

2600 LOCATE ax(i2)+LEN(t$(i2))-3,ay(i2):PRINT i2;"> ";d$(dat, i2)i:FOR aa=LEN(d$( 
dat, 12)) TO 1(i2)-l:PR!NT" :NEXT aa:PR INT:RETURN 
2610 ' - daten suchen 

2620 CLS:CLSil:L0CATE42,2,7:PRlNTi2,"Mode: Suchen Daten " 

2630 FOR i2=l TO dt:dat=l:GOSUB 2600:NEXT 

2640 PRINTil:PRINTil, ” Eingabe des zu durchsuch- enden Feldes. Bei 0 werden a 
Ile Datenfelder durchsucht" 

2650 PRINTi3, "Feld Nr. ..>"! :L1NE !NPUTi3, i$:aa=VAL(i$) -‘xs=aa 

2660 CLSil‘.PRINTil‘.PRINTil," Wonach soll gesucht werden. Z.B. St* = alles mit St 
... *er = alles mit ...er" 

2670 PRlNTi3, "Eingabe.. .>";:LINE !NPUTi3, i$:su$=i$ 

2680 PRINTi3, "Suchroutine ist gestartet. "‘-FOR o=l TO 200:NEXT 
2690 su=0: IF LEFT$(su$, 1) = "*” THEN su=l 
2700 IF su=l THEN 2720. 

2710 IF su=0 THEN 2790 

2720 ' - x am anfang 

2730 ii=xs:FOR i=l TO x 

2740 IF xs=0 THEN FOR ii=l TO dt 

2750 IF RIGHTi(d$(i, ii),LEN(sut)-1) =RIGHT$(sut,LEN(sut)-1) THEN GOSUB 2860 
2760 IF xs=0 THEN NEXT ii 
2770 NEXT i 
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2780 GOTO 2850 

2790 ' - * am ende 

2800 ii=xs:FOR i=l TO x 

2810 1F xs=0 THEN FOR ii=l TO df 

2820 1F LEFT$(d$(i, ii), LEN(sui)- 1 )=LEFT$ (su$, LEN(su$)-1) THEN GOSUB 2860 
2830 JF xs=0 THEN NEXT ii 
2840 NEXT i 

2850 PRINT43,"Keine Daten gefunden.":FOR o= 1 TO 1000 :NEXT:GOTO 400 
2860 f - ausgabemenue suchen 

2870 PR1NT93, "Daten gefunden. n :FOR o=l TO 500:NEXT 
2880 dat=i:FOR i2=l TO df:GOSUB 2570:NEXT 

2890 CLS41:LOCATEil, 2, 7:PR1NT41, "<Enter> = Veitersuchen”, " M = Zurueck zum Menue 

ft 

2900 i$=INKEY$:IF it=" n THEN 2900 
2910 IF i$="m" THEN 400 

2920 PRINTI3, "Suchroutine ist gestartet.”:FOR o=l TO 200:NEXT 
2930 RETURN 

2940 ' - sortieren 

2950 L0CATE42,2, 7:PRINT§2, "Mode: Sortieren ” 

2960 CLS:CLS#1 

2970 dat=l:FOR i2=l TO df:GOSUB 2600:NEXT 

2980 PRINTt3, "Sortieren nach Feld...>";:LINE INPUT43, i$:su=VAL(i$) 

2990 PRINT43, "Bis zu weichem Datensatz soll sortiert werden. ..>";:LINE JNPUT*3,i 
$:xx=VAL(it) 

3000 PRINT13, "(A)-Aufsteigend (Z)-Absteigend sortieren. ..>”!:GOSUB 3500 

3010 IF i$="A" THEN von=l 

3020 IF i$="Z" THEN von=2 

3030 IF i$<>"A" AND i$<>"Z" THEN 3230 

3040 CLS 

3050 PRINT CHR$(7):PRINT»3, "Vorsortieren gestartet." 

3060 ’ 

3070 ' 

3080 FOR i=l TO xx 
3090 sort(i)=0 
3100 NEXT i 
3110 • 

3120 FOR i= 1 TO xx 

3130 IF MID$(d$(i,su), 1,1)0"" THEN sort( i )=sort( i ) + ( (ASC(MID$(d$( i, su), 1,1) )~31 
)*4569. 77) 

3140 IF MID$(d$( i, su) ,2,1)0"" THEN sort< i) =sort(i ) + ( (ASC(MID$(d$( i, su), 2,1) )-31 
) *175. 77) 

3150 IF MID$(d$(i,su),3,l)<>"" THEN sort(i)=sort(i) + ((ASC(MID$(d*(i, su) ,3,1))-31 
)* 6 . 77) 

3160 IF MID$(d$(i, su), 4,1)<>"" THEN sort(i)=sort(i) + ((ASC(MID$(d$(i, su), 4,1))-31 
)*0.27) 

3170 IF MID$(dt( i ,su) ,5,1)0"" THEN sort( i )=sort( i ) + ( (ASC(M1D$ (d$(i, su) ,5,1) )-31 
)* 0 . 01 ) 

3180 NEXT 

3190 PRINT CHR$(7):PR1NT*3, "Sortieren gestartet." 

3200 IF von=l THEN 3340 

3210 '- z-a 

3220 h=0 

3230 FOR i=l TO xx-1 STEP 2:IF sort(i)<sort(i+l) THEN 3240 ELSE 3270 
3240 FOR ur=l TO df:hilfe$=d$(i, ur):d$(i, ur)=d$(i+l, ur):d$(i+1,ur)=hiIfe$ 

3250 NEXT ur 


Comp uter 

Schau 


59 










Anwendungen 


3260 sortl s sort(i):sort(i)=sort(i+1):sort(i+l)=sortl:h=l 
3270 NEXT i 

3280 FOR i-2 TO xx-1 STEP 2:IF sort(i)<sort(i+1) THEN 3290 ELSE 3320 
3290 FOR ur=l TO df:hi 1fe$=d$(i, ur):d*(i, ur)=d$(i+1, ur):d$(i +1, ur)=hi1fe$ 

3300 NEXT ur 

3310 sortl s sort(i):sort(i)-sort(i+1):sort(i+l)=sortl:h=l 
3320 NEXT i 

3330 1F h=l THEN 3220 ELSE 3460 

3340 • - 

3350 h=0 

3360 FOR i=l TO xx-1 STEP 2:IF sort(i)>sort(i+1) THEN 3370 ELSE 3400 
3370 FOR ur=l TO dfihilte$=d$(i,ur):d$(i t ur) s d$(i+l,ur):d$(i+l,ur)-hilfe$ 

3380 NEXT ur 

3390 sortl=sort(i):sort(i)=sort(i+1):sort(i+l)=sortl:h=l 
3400 NEXT i 

3410 FOR i-2 TO xx-1 STEP 2HF <sort(i)>sort(i+1)) THEN 3420 ELSE 3450 
3420 FOR ur=l TO df:hi1te$=d$(i,ur):d$(i, ur)=d*(i+1, ur):d$(i+1, ur)=hi1te$ 

3430 NEXT ur 

3440 sortl=sort(i):sortei)=sort(i+1)isortei+l)=sortl:h=l 

3450 NEXT i 

3460 IF h=l THEN 3350 

3470 ' 

3480 PRINT CHR$e7):PRINT*3:PRINT*3, "Datei neu sortiert ..." 

3490 FOR i=l TO 1000:NEXT:GOTO 400 

3500 • - input line 

3510 LINE INPUTH3, it 

3520 IF i$<>" n AND VAL(i$)<32 THEN f=VALei$):flag=l ELSE flag=0 
3530 it=UPPER$eLEFT4ei$,l)) 

3540 RETURN 

3550 ' - ende 

3560 PRINT13, "Wollen Sie die Datei abspeichern. ;:GOSUB 3500 
3570 IF i$="J" THEN GOSUB 1070 

3580 PRINT«3, "Wollen Sie das Programm wirklich loeschen. GOSUB 3500 

3590 IF i$="J" THEN CALL 64000 
3600 GOTO 400 

3610 '- systemmenue 

3620 W1ND0W*4,2,50, 6,18:CLS:CLSt4 
3630 WINDOW SWAP 4,3 

3640 L0CATE43,1,6:PRINT*3," <l> Disk-Menue":PRINT*3:PRINT#3, " <2> Grund-Menue" 

3650 PRINT*4, "Auswahl. -‘LINE INPUT*4, i$ ■ 

3660 i$=LOWER$(LEFTUi$,1)) 

3670 IF i$="1" THEN CLS*3:G0T0 3700 
8680 IF i$="2" THEN CLS*3:G0T0 3770 
3690 GOTO 3650 

3700 L0CATE*3,1,5:PRINT*3," <1> Disk-Inhalt":PRINT*3:PRINT*3, " <2> Umbenennen" 

:PRINT*3:PRINT«3, " <3> Loeschen" 

3710 PRINT*4, "Auswahl... >";:LINE lNPUT*4,i$ 

3720 i$=LOWER$(LEFT$ei$,l)) 

3730 IF i$="1" THEN CLS*3:WIND0W SWAP 0,3:CAT:WINDOW SWAP 0, 3:PRINT*4, "Bitte Tas 
te druecken...":CALL &BB06 

3740 IF i$="2" THEN CLS*3:1NPUT*4, "Welches Programm";o$:1NPUT94, "Neuer Name";n$: 
IREN, @n$, @o$ 

3750 IF i$="3" THEN CLS*3:INPUT*4, "Welches Programm"io$:lERA,8o$ 

3760 WINDOW SWAP 4,3:GOTO 400 

3770 L0CATE*3,1,5:PRINT*3, " Rahmenfärbe. GOSUB 3500:IF flag=l THEN BORDER f 
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3780 PRINT«3, " Hintergrungfarbe... >";:GOSUB 3500:IF flag-1 THEN INK 0, f 

3790 PR INT«3, " Schreibfarbe...>”I:GOSUB 3500:IF flag=l THEN INK l,f 

3800 PRINTH3, " Baud-Rate (0/1:GOSUB 3500:IF f-1 OR f=0 THEN SPEED URITE f 

3810 UINDOU SUAP 3, 4:GOTO 400 
3820 9 - error 

3830 CLS«1 :PRINT«1 :PR1NT«1, " Im Programm ist ein Fehler auf getreten.",, ," Zeile 
: "ERL 

3840 PRINT«1," Fehlernummer: "ERR 

3850 PRINT«3,"Programm abbrechen...> H l:GOSUB 3500 

3860 IF i$="J" THEN 3550 

3870 GOTO 400 

3880 ' - ausdruck 

3890 L0CATE«2,2, 7:PRINT«2, "Mode: Drucken " 

3900 CLSil:CLS 

3910 LOCATE 10,9:PRINT"<1> Druckmaske festlegen" 

3920 LOCATE 10,11:PRINT"<2> Drucken ohne Maske" 

3930 LOCATE 10,12:PR1NT"<3> Drucken mit Maske" 

3940 LOCATE 10,14:PR1NT"<4> Zurueck ins Menue" 

3950 GOSUB 670 
3960 IF men=l THEN 4250 
3970 IF nen=2 THEN 4010 
3980 IF men=3 THEN 4650 
3990 IF men=4 THEN 400 
4000 GOTO 3950 

4010 ' - drucken ohne maske 

4020 L0CATEH2,2, 7:PRINT«2, "Mode: Drucken o Maske " 

4030 CLS*i:CLS 

4040 LOCATE 10,10:PRINT”<1> Drucken einzelner Datensaetze" 

4050 LOCATE 10,11:PRINT"<2> Drucken aller Datensaetze" 

4060 LOCATE 10,13:PRINT"<3> Zurueck ins Menue" 

4070 GOSUB 670 
4080 IF men=l THEN 4120 
4090 IF men=2 THEN 4550 
4100 IF men=3 THEN 3880 
4110 GOTO 4070 

4120 '- - d o m einzeln 

4130 CLS:PRINTt3, "Welcher Datensatz soll gedruckt werden...>"i:LINE INPUT43,i$:i 
=VAL(i$):IF i>x OR i<l THEN 4130 
4140 GOSUB 4160 
4150 GOTO 4010 

4160 ' - ausdruck datensatz i 

4170 PRINTH3, "S fuer Stop... " 

4180 PRINT48:PRINT§8, "—> Datei :"name$:PRlNT*8:PRlNT98, " - > Datensatz:"i 

4190 FOR ia=l TO df 

4200 i$=INKEY$: IF i$="s" THEN 4010 

4210 PRINT«8, t$(ia)}": "id$(i,ia) 

4220 NEXT 
4230 PRINT«8 
4240 RETURN 

4250 '- druckmaske 

4260 ERASE dz$ 

4270 CLS:CLS«1 :L0CATE«2,2,7:PRINT«2, "Mode: Druckmaske " 

4280 PRINT93, "Wieviele Druckzeilen soll ein Drucksatz haben...>"!:LINE INPUT«3,i 
$ 
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4290 dz=VAL(i$) 

4300 PRINT43, "Wieviele Leerzeilen zwischen den Datensaetzen...>" / :L1NE INPUTS3,i 

$ 

4310 ldz=VAL(iS) 

4320 DIM dzS(dz) 

4330 GOSUB 5050 

4340 PRINTS3, "Steuerung>Cursor Fixieren>Copy Ausserhalb>kein Druck." 

4350 FOR i=l TO dz 

4360 LOCATE l,i:PR!NT STRINGS(78,233) / •' dz$(i) =STRINGS(78, " ") 

4370 NEXT 

4380 FOR ia=l TO df:dx(ia)=l:dy(ia)=12:dxa(ia)=dx(ia)-dya(ia)=dy(ia):g$(ia)=LEFT 
S(t$(ia), 1)+STR1NGS(1 (ia)-l, ">"):NEXT 
4390 FOR ia-1 TO df 
4400 i$=INKEYS 

4410 IF iS=CHRS(&F0) AND dy(ia)>l THEN dy(ia)=dy(ia)-l 
4420 IF iS=CHRS(&F1) AND dy(ia)<12 THEN dy(ia)=dy(ia)+l 
4430 IF iS=CHRS(t,F2) AND dx(ia)>l THEN dx(ia) =dx(ia)-1 
4440 IF iS-CHRS(&F3) AND dx(ia)<79 THEN dx(ia)=dx(ia)+l 
4450 IF iS=CHRS(&E0) THEN 4490 

4460 FOR aa=l TO df‘.LOCATE dxa(aa), dya(aa):PRINT STRINGS(LEN(gS(aa)), " ”) .‘LOCATE 
dx(aa),dy(aa):PRINT gS(aa):dxa(aa)=dx(aa)tdya(aa)=d 
y(aa)sNEXT 
4470 GOTO 4400 

4480 NEXT ia 

4490 IF dy(ia)>dz THEN dx(ia)=l:dy(ia)=12 

4500 IF ia-df THEN PR1NTS3, "Alle Eingaben OK.. :GOSUB 3500:ELSE 4530 

4510 IF i S= "N" THEN GOTO 4250 ELSE GOSUB 5120: GOTO 3880 

4520 GOTO 4510 

4530 GOTO 4480 

4540 GOTO 3880 

4550 ' - d o m alle 

4560 PRINTS8, "—> Datei : "nameS 
4570 PR1NTS8 
4580 FOR i=1 TO x 

4590 FOR ia=l TO df:lF dS(i, ia)O nn THEN 4610 

4600 NEXT ia:PRINTS8, " - > Datensatz-i "nicht vorhanden! ".‘PRINTS8: GOTO 4630 

4610 PRINTS8, Datensatz:"i 

4620 GOSUB 4190 
4630 NEXT i 
4640 RETURN 

4650 '- druck m maske 

4660 L0CATES2,2, 7:PRINTS2, "Mode: Drucken m Maske " 

4670 CLSS1.-CLS 

4680 LOCATE 10,10:PR1NT"<1> Drucken einzelner Datensaetze" 

4690 LOCATE 10,11:PRINT"<2> Drucken aller Datensaetze" 

4700 LOCATE 10,13:PR1NT"<3> Zurueck ins Menue" 

4710 GOSUB 670 
4720 IF men=l THEN 4760 
4730 IF men=2 THEN 4940 
4740 IF men=3 THEN 3880 
4750 GOTO 4710 

4760 PRINTS3, "Welcher Datensatz soll gedruckt werden...>";:LINE INPUT*3,iS 
4770 i = VAL(iS) 

4780 GOSUB 4790:GOTO 4650 

4790 ’ - ausdruck datensatz i 
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4800 PRINTS3, "S fuer Stop..." 

4810 FOR ai=l TO df 

4820 IF dy(ai)<>12 THEN MIDS(dzS(dy(ai)),dx(ai), 1(ai))=dS(i, ai) 
4830 NEXT 

4840 FOR il=l TO dz 

4850 iS s INKEYS:IF iS="s" THEN 4650 


4860 PRINTS8, " "idzS(il) 

4870 NEXT 

4880 IF ldz>0 THEN 4890 ELSE 4920 
4890 FOR il=l TO ldz 
4900 PRINTS8 
4910 NEXT 

4920 FOR aa=l TO dz:dzS(aa)=STR!NGS(78, " ")‘-NEXT 


4930 RETURN 

4940 ' - d m m alle 

4950 PRINTS8 
4960 FOR i-1 TO x 

4970 FOR ia=l TO df'-lF dS(i,ia)O nn THEN 4990 

4980 NEXT ia:GOTO 5000 

4990 GOSUB 4790 

5000 NEXT i 

5010 GOTO 4650 

5020 ' - break 

5030 ON BREAK GOSUB 5040 
5040 GOTO 400 

5050 ' - uindou t druckmaske 

5060 UINDOUS0,1,80,1,25 

5070 LOCATE 1,2:PRINT CHR$( 150)STRINGS(78,154)CHR$( 156) 

5080 FOR i=3 TO 14: LOCATE l,i:PRINT CHRS( 149) : LOCATE 80, i •* PR INT CHRS (149) : NEXT 
5090 LOCATE 1,15:PRINT CHRS(151)STRINGS(78,154)CHRS(157) 

5100 UINDOWS0,2, 79,3,14: CLS 
5110 RETURN 

5120 ' - window normal 

5130 UINDOUS0,1,80,1,25 
5140 LOCATE 1,1 

5150 PRINT" DATEI VERWALTUNGS-PROGRAMM -DATA-PRO- "CHRS(164)" 19tib 

BY JENS KR1ESE" 

5160 PRINT CHRS(150)STRINGS(49,154)CHRS(158)STRINGS(28,154)CHRS(156) 

5170 FOR i=3 TO 22:L0CATE l,i:PRlNT CHRS(149) :LOCATE 51, i‘-PRINT CHRS(149) :NEXT 
5180 FOR i=3 TO 16:LOCATE 80, i : PR INT CHRS(149):NEXT 
5190 LOCATE 51,15-‘PRINT CHRS( 151 )STRINGS(28,154)CHRS(157) 

5200 FOR i=l 7 TO 22-‘L0CATE 51, i ‘-PRINT CHRS(149)-‘LOCATE 80,i:PRINT CHRS(149) ‘-NEXT 


5210 LOCATE 1,23‘-PRINT CHRS(151)STRINGS(49,154)CHRS( 155)STRINGS(28,154)CHRS( 157) 
5220 LOCATE 1,24-‘PR1NT CHRS(149) -‘LOCATE 80,24:PRINT CHRS(149) 

5230 LOCATE 1,25‘-PRINT CHRS(147)STRINGS(78,154)CHRS( 153) i 

5240 WINDOWS0,2,50, 3,22'-W IND0US1,52, 79,3,14:WIND0WS2,52, 79,16,22:WIND0WS3,2, 79,2 
4, 24 

5250 RETURN _ 
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Eine Text-Hardcopy 
für die Schneider-CPCs 


Mit diesem Maschinenprogramm 
können Sie auf dem Drucker 
NLQ401 von Schneider oder Broth- 
er M-1009 den Textbildschirm aus- 
drucken. Der Ausdruck erfolgt in 
NLQ-Briefqualität, und die Sonder¬ 
zeichen der ASCII-Codes 128 bis 
255 werden ebenfalls ausgegeben! 

Das Programm ist unverändert auf 
allen Schneider-Computern lauffä¬ 
hig, da keine allzu spezifischen Sy¬ 
stemadressen verwendet werden, 
Nach der Initialisierung der RSX-, 
Erweiterung verfügt das Schneider- 
Basic über einen neuen Befehl: 

IPRINTSCREEN 

Nach Eingabe dieses Befehls wird 
der gesamte Bildschirminhalt auf 
dem angeschlossenen Drucker aus¬ 
gegeben, Sofern nicht schon gesche¬ 
hen, schaltet das Programm den 
Drucker in NLQ-Briefqualität um. 


Die speziell angepaßten Schneider¬ 
und Brother-Drucker besitzen trotz 
des 7-Bit-Druckerausgangs eine 
Möglichkeit, die Sonderzeichen des 
Computers zu Papier zu bringen: 

PRINT #8,CHR$(27);CHR$(61); 

Danach werden alle folgenden Zei¬ 
chen als mit gesetztem siebtem Bit 
interpretiert. Aus dem Zeichen 33 
wird also 33 + 128=161. Das ent¬ 
sprechende Grafikzeichen erscheint 
dann auf dem Papier. Zurückschal¬ 
ten in den normalen Druckmodus 
kann man miL: 

PRINT#8,CHR$(0); 

Diese Besonderheit macht sich das 
Programm zunutze und stellt damit 
die Zeichen mit den ASCII-Codes 
von 32 bis 255 richtig auf dem Druk- 
ker dar. 

PRINTSCREEN funktioniert in allen 


drei Bildschirm-MODEs. Sie sollten 
lediglich sicherstellen, daß das 
WINDOW #0 sich über den ganzen 
Bildschirm erstreckt. Andernfalls 
kann es zu Verzerrungen beim Aus¬ 
druck kommen. 

Mit CHR$(24) invers dargestellten 
Zeichen sowie die ASCII-Zeichen 0 
bis 31 ersetzt PRINTSCREEN auto¬ 
matisch durch Leerzeichen, da sie 
auf dem Drucker nicht darstellbar 
sind. 

Erwähnenswert ist, daß PRINT¬ 
SCREEN den Zeilenabstand mit: 

PRINT#8,CHR$(27);CHR$(51); 

CHR$(25); 

herabsetzt, was bei Bedarf mit 

PRINT #8,CHR$(2 7);CHR$(51); 
CHR$(35); 

wieder korrigiert werden kann. 

Martin Kotulla/LM 


L. i s t i n g s Text-HARDCOPY 

100 ' ******************************** 

110 ' * * 

120 ' * PRINTSCREEN - Hardcopy * 

130 ' * » 

140 ' ******************************** 

150 ' 

160 DEF FNmsb(a)=255 AND INT(a/256) 

170 DEF FNIsb(a)=255 AND UNT(a) 

180 MODE 1: INK 0,13: INK 1,0: INK 2,0,3: INK 3,1 
190 PAPER 0:PEN 3:B0RDER 10:SPEED INK 30,20 
200 LOCATE 1,1: PR INT STRINGS (40,210) / 

210 LOCATE 1,2 

220 PRINT CHRS(24)*SPACE$(14)+"PRINTSCREEN"+SPACE*(1S)+CHR$(24) 
230 LOCATE 10,5:PRINT CHR$(164)i" Martin Kotulla 1985" 

240 PR INT: PR] NT STRING$(40,210): PRINT 

250 PEN l:PRINT ” Dieses Programm erweitert das Basic" 

260 PR INT: PR INT " um einen RSX-Befehl, mit dem der" 

270 PRINT:PRINT " Textbildschirm auf einem NLQ401- oder" 

280 PR1NT:PRINT " M-1009-Drucker ausgegeben werden kann:" 

290 PEN 3:PR INT:PRINT STRINGS(40,210):PRINT 
300 PEN 2: PR INT TAB (15) IPRINTSCREEN" 
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310 FOR 1=40960 TO 41147SREAD assua=sum+asNEXT i 
320 IF sua=20589 THEN 350 

330 PRINTsPRINT CHR$(7){" * Fehler in den DATAs!”SPRINT 
340 LIST 440-SEND 

350 RESTOREsMEMORY HIMEM-190Sstart=HIMEM+l 

360 FOR i=start TO start*ABBsREAD asPOKE i,asNEXT i 

370 FOR i=l TO 22sREAD asa=a+start 

380 vaJue=PEEK(a)*PEEK(a+l)*256-40960+start 

390 POKE a,FNIsb(vaIue)sPOKE a*l,FNmsb(value) 

400 NEXT i 

410 CALL start*32 ' RSX-Erweiterung Initialisieren 
420 PEN 1 SEND 

430 • Maschinencode-Daten ********************************************** 
440 DATA ABB, t<00, A00, A0D, ABA, A1B, A49, A03, A1B, 133, A19, A10, AA0, AC3, A2A, AA0 
450 DATA A50, A52, St49, A4E, A54, A53, A43, A52, A4S, A45, ACE, A00, A00, A00, A00, A00 
460 DA TA A01,A0B,AA0, A21,AlC, AA0, ACD,AD1,ABC, AC9, ACD,A78, ABB, A22, A01, AA0 
470 DA TA A21, A01,A01,ACD, A75, ABB,A06,A08,A21, A03, AA0,A7E, ACD, AB5,AA0,A23 
480 DATA A10, AF9, A3E,A0D, ACD, AB5, AA0, A3E, ABA, ACD, AB5, AA0, A3E, A1B, ACD, AB5 
490 DA TA AA0, A3E, A49, ACD, AB5, AA0, A3E,A03, ACD, AB5, AA0, ACD, A69, ABB, A14, A7A 
500 DA TA A32, A00, AA0, ACD, A60, ABB, AFE, A20, A30, A04, A3E, A20, Al 8, Al 4,AFE, A7F 
510 DATA A38,A10, AF5,A3E, A1B, ACD, AB5,AA0, A3E, A3D, ACD, AB5, AA0, AF1,ACD, AB5 
520 DATA AA0, A97, ACD, AB5, AA0, A3E, A09, ACD, A5A, ABB, A3A, A00, AA0, A57, A1E, A19 
530 DATA ACD, A78, ABB, A7A, A3C, ABC, A20, ABA, A3E, A0D, ACD, AB5, AA0, A3E, ABA, ACD 
540 DA TA AB5,AA0, AE5,AB 7, AED, A52, AE1,A20, ABA, A3E, ABC, ACD, ABS, AA0, A2A, A01 
550 DA TA AA0, ACD, A75,ABB, AC9, ACD, A2B, ABD, A30, AFB, AC9, A00 
560 ' Relokatier-Daten ####*###*#*#########*#**#*#***#**#**#**##*######* 
570 DATA ABB, A0E, A21,A24, A2E, A39, A3D,A45, A4A, A4F, A54, A59,A61.A76 
580 DATA A7B,A7F,A83,A8B,A9B,AA0,AAC,AAF 

590 END 1 ************************************************************** 


ARNOR 

ZOO 

ASSEMBLER 

verslon 1.09 



Page 001 

00002 



j o***********#**#***»***»**************** ,t ******* 

00003 



; * 



« 

00004 



; * PRINTSCREEN - fuer den NLQ-401/Brother M-1009 * 

00005 



; * 



* 

00006 



\ ##*#####*#*######***#*#*#*######**#*###*#******** 

00007 







00008 

AOOO 

(AOOO) 


ORG 

&A000 


00009 



; Mit Basic-Loader verschiebbar 

00010 

00011 

AOOO 

(BB5A) 

TXTOUT 

EQU 

&BB5A 

TXT OUTPUT 

00012 

AOOO 

(BB60) 

RDCHAR 

EQU 

&BB60 

TXT RD CHAR 

00013 

AOOO 

(BB69) 

GETWIN 

EQU 

&BB69 

TXT GET WINDOW 

00014 

AOOO 

(BB75) 

CURSET 

EQU 

&BB75 

TXT SET CURSOR 

00015 

AOOO 

(BB78) 

CURGET 

EQU 

&BB78 

TXT GET CURSOR 

00016 

AOOO 

(BCD1) 

LOGEXT 

EQU 

&BCD1 

KL LOG EXTERNAL 

00017 

AOOO 

(BD2B) 

MCCHAR 

EQU 

&BD2B 

MC PRINT CHAR 

00018 

AOOO 

(0001) 

.SCRMOD 

DEFS 

1 

Speicher Zellenlaenge 

00019 

A001 

(0002) 

.CURHLD 

DEFS 

2 

Speicher Cursorposition 

00020 







00021 

A003 

OD OA 1B 

49 .STRINI 

DEFB 

13,10,27,73,03 




; CR, LF, 

, NLQ- 

-an 



A007 

03 





00022 

A008 

1B 33 19 


DEFB 

27,51,25 

; Zeilenabstand 25 Einh. 

00023 







00024 

AOOB 

10 AO 

.RSXTAB 

DEFW 

NAMTAB 

; Vektor auf Namenstabe11e 

00025 

AOOD 

C3 2A AO 


JP 

PRSCRN 

; Sprung nach PRINTSCREEN 

0Ö026 
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00027 

A010 

50 

52 

49 

4E 

.NAMTAB 

DEFM 

"PRINTSCREE" 








; RSX-Name PRINTSCREEN 



A014 

54 

53 

43 

52 






A01Q 

45 

45 







00028 

A01A 

QE 





DEFB 

&CE 

; "N"+&80, Wortende 

00029 

A01B 

00 





DEFB 

&00 

&00 Tabellenende 

00030 










00031 

A01C 

(0004) 


.SPACE 

DEFS 

&04 


00032 






; Hilfsspeicher zur RSX-Verwaltung 

00033 










00034 

A020 

01 

OB 

AO 


. INIT 

LD 

BC,RSXTAB 

; Zeiger auf RSX-Tabelle 

00035 

A023 

21 

IC 

AO 



LD 

HL,SPACE 

Zeiger auf Hilfsspeicher 

00036 

A026 

CD 

Dl 

BC 



CALL 

LOGEXT 

; RSX einbinden 

00037 

A029 

C9 





RET 


Ruecksprung nach Basic 

00038 










0Ö039 

A02A 

CD 

78 

BB 


.PRSCRN 

CALL 

CURGET 

; Cursorposition holen 

00040 

A02D 

22 

01 

AO 



LD 

(CURHLD),HL 

Und sichern 

00041 

A030 

21 

01 

01 



LD 

HL,&0101 

Zeile=l & Spalte=i 

00042 

A033 

CD 

75 

BB 



CALL 

CURSET 

Cursor setzen 

00043 










00044 

A036 

06 

08 



• LP INI 1 

LD 

B, 8 


00045 






; 8 Bytes zur 

Drucker-Initialisierung 

00046 

A038 

21 

03 

AO 



LD 

HL,STRINI 

i Zeiger auf Inlt-String 

00047 










00048 

A03B 

7E 




.INITLP 

LD 

A,(HL) 

; Ein Byte lesen 

00049 

A03C 

CD 

B5 

AO 



CALL 

PRINTER 

Auf dem Drucker ausgeben 

00050 

A03F 

23 





INC 

HL 

Zeig, auf naechstes Byte 

00051 

A040 

10 

F9 




DJNZ 

INITLP 


00052 






; Weitermachen 

, bis alles uebertragen 

00053 










00054 

A042 

3E 

OD 



• LP IN12 

LD 

A, 13 

CR-Code 

00055 

A044 

CD 

B5 

AO 



CALL 

PRINTER 

ausdrucken 

00056 

A047 

3E 

OA 




LD 

A, 10‘ 

LF-Code 

00057 

A049 

CD 

B5 

AO 



CALL 

PRINTER 

ausdrucken 

00058 

A04C 

3E 

1B 




LD 

A, 27 

ESC-Code 

00059 

A04E 

CD 

B5 

AO 



CALL 

PRINTER 

ausdrucken 

00060 

A051 

3E 

49 




LD 

A, 73 

l.Byte des NLQ-Codes 

00061 

A053 

CD 

B5 

AO 



CALL 

PRINTER 

ausdrucken 

00062 

A056 

3E 

03 




LD 

A,3 

2.Byte des NLQ-Codes 

00063 

A058 

CD 

B5 

AO 



CALL 

PRINTER 

ausdrucken 

00064 










00065 

A05B 

CD 

69 

BB 



CALL 

GETWIN 

Window-Daten holen 

00066 

A05E 

14 





INC 

D 

D enthaelt Zeilenlaenge 

00067 

A05F 

7A 





LD 

A, D 

Wert in den Akku 

00066 

A060 

32 

00 

AO 



LD 

(SCRHOD),A 

Und in SCRHOD speichern 

00069 










00070 

A063 

CD 

60 

BB 


.RDLOOP 

CALL 

RDCHAR 


00071 






; Ein Zeichen 

vom Bildschirm 

lesen 

00072 










00073 

A066 

FE 

20 



.LOW 

CP 

32 

Kleiner als ASCII-32? 

00074 

A068 

30 

04 




JR 

NC,HIGH 

Nein/Obergrenze pruefen 

00075 

A06A 

3E 

20 




LD 

A, 32 

durch Space ersetzen 

00076 

A06C 

18 

14 




JR 

OUTPUT 

Und Sprung zur Ausgabe 

00077 










00078 

A06E 

FE 

7F 



.HIGH 

CP 

127 

Groesser als ASCI1-127? 

00079 

A070 

38 

10 




JR 

C,OUTPUT 

Nein/Sprung zur Ausgabe 

00080 

A072 

F5 





PUSH 

AF 

Zeichen sichern 

00081 

A073 

3E 

1B 




LD 

A, 27 

ESC 61 schaltet auf 

00082 

A075 

CD 

B5 

AO 



CALL 

PRINTER 

alternativen 

00083 

A078 

3E 

3D 




LD 

A, 61 

Zeichensatz um 

00084 

A07A 

CD 

B5 

AO 



CALL 

PRINTER 
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A07D Fl 

A07E CD B5 AO 
A081 97 


00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 

00098 

00099 

00100 

00101 

00102 

00103 

00104 

00105 

00106 

00107 

00108 

00109 

00110 

00111 

00112 

00113 

00114 

00115 

00116 

00117 

00118 

00119 

00120 

00121 

00122 

00123 

00124 

00125 

00126 

00127 

00128 

00129 

00130 

00131 

00132 

00133 


Errorst 00000 Warnings: 
SYMBOL TABLE: 


A098 

A09A 

A09D 

A09F 


A0A9 

AOAB 


POP AF 

; Zeichen im Akku wiederherstellen 

CALL PRINTER ; Und ebenfalls ausgeben 

SUB A 

; Mit CHR(O) zurueck zum Normzeichensatz 


CD B5 AO 

.OUTPUT CALL 

PRINTER 

; Buchstaben ausgeben 

3E 09 

LD 

A, 9 



» ASCII-Code fuer CURSOR-RECHTS 

CD 5A BB 

CALL 

TXTOUT 



; An die Text-VDU schicken 


3A 00 AO 

LD 

A,(SCRMOD) 

; Zeilenlaenge in den Akku 

57 

LD 

D, A 

5 Ins D-Register 

IE 19 

LD 

E, 25 

; Zeile 25 

CD 78 BB 

CALL 

CURGET 



5 Tatsaechliche Cursorpositi 

on holen 

7A 

.LINCHK LD 

A, D 

i Zeilenlaenge in den Akku 

3C 

INC 

A 



; Wert erhoehen (physikalisch -> logisch) 

BC 

CP 

H 



; Mit der aktuellen Spalte vergleichen 

20 OA 

JR 

NZ,SCRCHK 



: Wenn ungleich, weitermachen 

3E OD 

LD 

A, 13 

; Sonst CR ausgeben 

CD B5 AO 

CALL 

PRINTER 


3E OA 

LD 

A, 10 

; Und LF 

CD B5 AO 

CALL 

PRINTER 


E5 

.SCRCHK PUSH 

HL 

; Vergleicht DE mit HL 

B7 

OR 

A 


ED 52 

SBC 

HL, DE 


El 

POP 

HL 


20 BA 

JR 

NZ,RDLOOP 



; Wenn Bildschirmende nicht 

erreicht! 

3E OC 

«FFEED LD 

A, 12 

; Form-Feed-Code 

CD B5 AO 

CALL 

PRINTER 

; Wirft das Blatt aus 

2A 01 AO 

.RETURN LD 

HL,(CURHLD) 

; Alte Cursorpos. laden 

CD 75 BB 

CALL 

CURSET 

; Und Cursor setzen 

C9 

RET 


* Ruecksprung nach Basic 

CD 2B BD 

.PRINTER CALL 

MCCHAR 

; Druckerausgabe versuchen 

30 FB 

JR 

NC,PRINTER 



; Solange versuchen, bis es 

klappt 

C9 

RET 



(AOBB) 

END 


i *#*#####*##*#**»******** 


00000 


BB75 CURSET 
BB69 GETUIN 
BCD1 LOGEXT 
A093 LINCHK 
A02A PRSCRN 
A063 RDLOOP 
A01C SPACE 


BB78 CURGET 
A06E HIGH 
A036 LPINI1 
BD2B MCCHAR 
A0B5 PRINTER 
AOAE RETURN 
A0A2 SCRCHK 


A001 

A020 

A042 

A010 

BB60 

AOOO 

BB5A 


CURHLD 

INIT 

LP IN12 

NAMTAB 

RDCHAR 

SCRMOD 

TXTOUT 


A0A9 FFEED 
A03B IN1TLP 
A066 LOW 
A082 OUTPUT 
AOOB RSXTAB 
A003 STRINI 
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Speichern Sie 
Zeichensätze ab! 


Mit dem folgenden Maschinenpro¬ 
gramm wird das Schneider-Basic 
um zwei RSX-Befehle erweitert, 
mit denen der verwendete Zei¬ 
chensatz auf Cassette oder Diskette 
gespeichert und später wieder ge¬ 
laden werden kann . 


Bei der Programmeingabe können 
Sie auswählen, ob Sie lieber den 
Quellcode des Programms eintip¬ 
pen und diesen dann assemblieren, 
oder gleich den Basic-Loader abtip¬ 
pen. Der Basic-Loader verschiebt 
das Maschinenprogramm im Spei¬ 
cher und legt es immer unter 
HIMEM ab. Somit können keine 
Adressierungsprobleme bei gleich¬ 
zeitiger Verwendung mehrerer 
Maschinenprogramme auftauchen. 
Der DATA-Loader erkennt auch 
automatisch den Computertyp 
(CPC-446, CPC-664 oder CPC-6128) 
und paßt das Maschinenprogramm 
an den verwendeten Computer 
an. 

Sobald die RSX-Erweiterung initia¬ 


lisiert ist, stehen Ihnen zwei neue 
Befehle zur Verfügung: 

CHARSAVE,§file$ 

CHARLOAD,§file$ 

Mit |CHARSAVE wird der gerade 
verwendete Zeichensatz abgespei¬ 
chert, mit |CHARLOAD ein Zei¬ 
chensatz von Diskette oder Cassette 
geladen. In file$ sollten Sie den zu¬ 
gehörigen Dateinamen angeben. 

Das Programm bestimmt dabei auto¬ 
matisch die Lage und Länge des 
RAM-Zeichensatzes, sofern nicht 
gerade mil SYMBOL AFTER 256 
der gesamte Zeichensatz ins Be¬ 
triebssystem-ROM verlegt wurde. 
Da die Lage der Zeichenmatrizen im 
RAM-Speicher dynamisch vergeben 
wird, sich also nicht immer an der 
gleichen Adresse befindet - denken 
Sie an die Veränderungen beim An¬ 
schluß einer Diskettenstation! - legt 
CHARLOAD unabhängig vom Ort, 
wo der Zeichensatz gespeichert 
wurde, die Zeichentabellen beim 
Laden an die richtige Stelle. 


Das Programm verwendet übrigens 
einige Routinen im Basic-ROM, die 
bei allen drei Schneider-Computern 
an verschiedenen Stellen im Spei¬ 
cher stehen: 

GETMEM reserviert 2K-Speicher 
für Dateien: 

CPC-464: CALL &F637 
CPC-664: CALL &F72A 
CPC-6128: CALL &F72A 

RELMEM gibt diesen Speicher wie¬ 
der frei: 

CPC-464: CALL &F671 
CPC-664: CALL &F75D 
CPC-6128: CALL &F761 

BASERR gibt eine Fehlermeldung 
aus, deren Code im E-Register über¬ 
geben wird: 

CPC-464: CALL &CA94 
CPC-664: CALL &CB50 
CPC-6128: CALL &CB4D 

Martin Kotulla/LM 


L- ±s*ting s CHAR-SAVE/-LOAD (Abspeichern und Einlesen von Zeichensaetzen) 

100 f XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
110 f X X 

120 ' x CHARSAVE & CHARLOAD x 

130 f x x 

140 9 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
150 ' 

160 DEF FNmsb(a)=255 AND INT (a/256) 

170 DEF FN1 sb(a) =255 AND UNT(a) 

180 SYMBOL 255, &66, &0, &78, &C, &7C, &CC, &76, &0 
190 MODE 1: INK 0,13: INK 1,0: INK 2,0,3: INK 3,1 
200 PAPER 0:PEN 3:BOEDER 10:SPEED INK 30,20 
210 LOCATE 1,1: PR INT STRING$(40,210) I 
220 LOCATE 1,2 

230 PRINT CHR*(24)+SPACE$(10)+"CHARSAVE & CHARLOAD n +SPACE$(11)+CHR$(24) 

240 LOCATE 10,5:PRINT CHR$(164); n Martin Kotulla 1985 n 
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250 PR INT .‘PRINT STR ING $ (40,210) : PR INT 

260 PEN 1 .‘PRINT " Dieses Programm liefert Ihnen zwei" 

270 PRINT'.PRINT n neue RSX-Befehle zum Speichern und* 

260 PRINT.'PRINT " Laden kompletter Zeichens' , ■^CHR$(255) + "tze:’ , 

290 PEN 2.‘PRINT:PRINT " ICHARSAVE,6FILE$ iCHARLOAD, §FILE$" 

300 PRINT:PEN 1 

310 FOR i=39166 TO 39311:READ a:sum=sum+a:NEXT i 
320 IF sum=17223 THEN 350 

330 PRINT:PRINT CHR$(7){"* Fehler in den DATAs!":PR INT 
340 LIST 560-660.‘END 

350 RESTORE:MEMORY HIMEM-150:start=HlMEM+l 

360 FOR i=start TO start+t/8F:READ a'-POKE i,a:NEXT i 

370 FOR i=l TO 7:READ a:a=a+start 

380 vaIue=PEEK(a)+PEEK(a* 1)»256-39168+start 

390 POKE a,FNlsb(value):POKE a+1,FNmsb(value) 

400 NEXT i 

410 CALL start+t/lD ' RSX initialisieren 

420 CALL start+t/3A ' Computerversion feststellen 

430 version s PEEK( t/160) • Modifikationsbyte auslesen 

440 IF version=0 THEN END • VERSION=0: CPC-464 

450 IF versionOl THEN 500 1 VERSI0N=1: CPC-664 

460 POKE start+t/37, t/2A :POKE start+i/38,t/F7 

470 POKE start+t/76,t/5D:P0KE start+i/77,t/F7 

480 POKE start*t/8D,t/5D:P0KE start*t/8E,t/F7 

490 POKE start+t/4A, t/50: POKE start+t/4B,t/CB:END 

500 IF version<>2 THEN 550 ' VERSION=2: CPC-6128 

510 POKE start +t/37, &2A :POKE start+t/38, &F7 

520 POKE start+t/76, t/61:POKE start+t/77, &F7 

530 POKE start*t/8D, &61 ‘.POKE start+&8E, &F7 

540 POKE start+Si4A,&4D:P0KE start+&4B, &CB:END 

550 PRINT:PR1NT " Ich kann mit dieser Version des" 

560 PRINT.'PRINT " Computers nichts anfangen! n -’END 

570 ' Maschinencode-Daten ##*##*#**##*####**#*##*#*#***###*#******#***** 
580 DA TA &08, i/99, &C3, &4C, t/99, &C3, &79, t/99, t/43, 8/48, t/41, t/52, t/53, t/41, t/56, &C5 
590 DA TA t/43, t/48, t/41, t/52, &4C, t/4F, t/41, &C4, t/00, t/00, t/00, t/00, t/00, t/01, t/00, t/99 
600 DA TA t/21, t/19, t/99, t/CD, &D1, t/BC, &C9, t/CD, t/00, t/B9, t/DD, t/66, t/01, t/DD, &6E, t/00 
610 DA TA t/46, t/23, &5E, t/23, t/56, t/EB, t/CD, t/37, &F6, &C9, t/CD, t/00, t/B9, &3A, t/02, t/C0 
620 DA TA t/32, t/60,8/01, &C9, &1E, t/05, t/CD, t/00, &B9, &C3, t/94, t/CA, t/FE, t/01, t/20, &F4 
630 DA TA t/CD, t/27,8/99, t/CD, t/8C, t/BC, t/CD, &AE, &BB, t/5F, 8/3E, &FF, t/93, t/E5, &6F, t/26 
640 DA TA t/00, &29, t/29, t/29, t/11, t/08, t/00, t/19, t/EB, t/El, &3E, t/2C, t/01, t/00, t/00, t/CD 
650 DA TA &98, t/BC, t/CD, t/8F, t/BC, t/CD, t/71, &F6, &C9, t/FE, t/01, t/20, t/C7, t/CD, t/27, t/99 
660 DA TA t/CD, t/77, t/BC, t/CD, t/AE, &BB, t/CD, t/83, t/BC, t/CD,&7A, t/BC, t/CD, t/71,t/F6, t/C9 
670 ' Daten zum Relokalisieren des Maschinencodes fl#####’################ 
680 DATA &00, t/03, t/06, &1E, t/21, t/51,&7E 

690 END ' ************************************************************** 


1000 * 
1010 1 
1020 • 
1030 • 
1040 • 
1050 • 
1060 • 


»*###***###**»#*«»#***«****************************************** 

« * 

* 

« 


« CHARSAVER - Zeichensaetze speichern und laden 

* 

ORG &9900 » Mit dem Loader verschiebbar! 
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1070 

» 





1080 

r 

OPEN IN 

EQU 

&BC77 ; 

CAS IN OPEN 

1090 

t 

CLOS IN 

EQU 

&BC7A ; 

CAS IN CLOSE 

1100 

t 

BLKIN 

EQU 

&BC63 ; 

CAS IN DIRECT 

1110 

t 





1120 

t 

OPNOUT 

EQU 

&BC8C ; 

CAS OUT OPEN 

1130 

i 

CLSOUT 

EQU 

&BC8F ; 

CAS OUT CLOSE 

1140 

f 

BLKOUT 

EQU 

&BC98 ; 

CAS OUT DIRECT 

1150 

» 





1160 

f 

UROMON 

EQU 

&B900 i 

KL U ROM ENABLE 

1170 

t 

GETMAT 

EQU 

&BBAE i 

TXT GET MATRIX TABLE 

1180 

t 

LOGEXT 

EQU 

&BCD1 ; 

KL LOG EXTERNAL 

1190 

t 

GETMEM 

EQU 

&F637 J 

CAS-Puffer anlegen, 664s &F72A 

1200 

t 

RELMEM 

EQU 

&F671 5 

CAS-Puffer freigeben, 664s &F75D 

1210 

i 

BASERR 

EQU 

&CA94 i 

Fehlermeldung ausgeben 

1220 

i 





1230 

t 

; ***** RSXen initialisieren ******************************************* 

1240 

? 





1250 

t 

RSXTAB 

DEFU 

NAMTAB ; 

Vektor auf Namenstabel le 

1260 

t 


JP 

CHSAVE i 

Sprung nach CHARSAVE 

1270 

? 


JP 

CHLOAD i 

Sprung nach CHARLOAD 

1280 

« 





1290 

t 

NAMTAB 

DEFM 

"CHARSAV" ; 

RSX-Befehl "CHARSAVE" 

1300 

t 


DEFB 

&C5 ; 

Uortende durch gesetztes 7.Bit 

1310 

t 


DEFM 

"CHARLOA" ; 

RSX-Befehl "CHARLOAD" 

1320 

t 


DEFB 

&C4 ; 

Uortende durch gesetztes 7.Bit 

1330 

i 


DEFB 

&00 ; 

Nullbyte als Tabellenende 

1340 

t 





1350 

» 

SPACE 

DEFS 

&04 ; 

4 Bytes zur Verkettung der RSXen 

1360 

r 





1370 

? 

IN IT 

LD 

BC,RSXTAB ; 

Zeiger auf RSX-Sprungtabe1le 

1380 

t 


LD 

HL,SPACE ; 

Zeiger auf Hilfsspeicher 

1390 

? 


CALL 

LOGEXT ; 

RSXen ins Betriebssystem einbinden 

1400 



RET 

f 

Ruecksprung nach Basic 

1410 

t 





1420 

t 

; ***** SUBINIT ******************************************************** 

1430 

t 





1440 


SUBINI 

CALL 

UROMON ; 

KL U ROM ENABLE 

1450 

t 





1460 

t 


LD 

H, ( IX+1 ) } 

Highbyte des String Descriptors holen 

1470 

i 


LD 

L, ( IX+O) ; 

Lowbyte des String Descriptors holen 

1480 

» 


LD 

B,(HL) \ 

Stringlaenge ins B-Register 

1490 

i 


INC 

HL ; 

Deseriptor-Zeiger erhoehen 

1500 

» 


LD 

E,(HL) ; 

Lowbyte der Stringadresse lesen 

1510 

t 


INC 

HL ; 

Descriptor-Zeiger erhoehen 

1520 

t 


LD 

D,(HL) ; 

Highbyte der Stringadresse lesen 

1530 

» 


EX 

DE, HL 


1540 

f 





1550 

t 


CALL 

GETMEM ; 

I/O-Buffer reservieren lassen 

1560 

t 


RET 

5 

Ruecksprung zum Hauptprogramm 

1570 

? 





1580 

V 

; ***** 

VERSION ******************************************************** 

1590 

t 





1600 

V 

VSN 

CALL 

UROMON ; 

Basic-ROM einschalten 

1610 

t 


LD 

A', (&C002) ; 

Modifikationsbyte im ROM-Header lesen 
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1620 ' 

LD 

(&0160), / 

1630 ’ 

RET 


1640 * 



1650 1 

; ***** ERROR: Fehle: 

1660 ’ 



1670 * 

ERROR LD 

E,5 

1680 • 

CALL 

UROMON 

1690 » 

JP 

BASERR 

1700 ’ 



1710 1 

; ***«# CHARSAVE «** 

1720 • 



1730 • 

CHSAVE CP 

1 

1740 • 

JR 

NZ,ERROR 

1750 f 



1760 • 

CALL 

SUBINI 

1770 • 

CALL 

OPNOUT 

1780 • 



1790 • 

SVMATR CALL 

GETMAT 

1800 • 

LD 

E,A 

1810 • 

LD 

A, 255 

1820 ' 

SUB 

E 

1830 • 

PUSH 

HL 

1840 * 

LD 

L, A 

1850 1 

LD 

H, 0 

1860 • 

ADD 

HL, HL 

1870 • 

ADD 

HL, HL 

1880 • 

ADD 

HL, HL 

1890 * 

LD 

DE, 8 

1900 • 

ADD 

HL, DE 

1910 * 

EX 

DE, HL 

1920 ' 

POP 

HL 

1930 ' 



1940 * 

SVCHAR LD 

A, &2C 

1950 ’ 

LD 

BC, 0 

1960 • 

CALL 

BLKOUT 

1970 • 



1980 » 

SVCLOS CALL 

CLSOUT 

1990 ’ 

CALL 

RELMEM 

2000 » 

RET 


2010 ’ 



2020 • 

; ***** CHARLOAD »*< 

2030 • 



2040 ’ 

CHLOAD CP 

1 

2050 • 

JR 

NZ, ERROI 

2060 • 



2070 • 

CALL 

SUBINI 

2080 ’ 

CALL 

OPEN IN 

2090 ’ 

CALL 

GETMAT 

2100 • 

CALL 

BLKIN 

2110 • 

CALL 

CLOSIN 

2120 ' 

CALL 

RELMEM 

2130 ' 

RET 


2140 ' 

END 


2150 ’ 



2160 ' 

; ***************** 


; In den Basic-lesbaren Speicher laden 
; Ruecksprung nach Basic 


i Fehlercode 5 = IMPROPER ARGUMENT 
{ Basic-ROM einschalten 
! ROM-Routine zur Fehlerausgabe 


; Es muss genau 1 Parameter da sein! 

; Sonst Fehlerausgabe 

5 holt Dateinamen, reserviert Speicher 
; Datei oeffnen 


; Start der Zeichenmatrizen holen 
; CP vorbereiten 
; SUB vorbereiten 
; Akku=255-erstes Zeichen 
; Matrix-Zeiger sichern 
j Akku ins L-Register 
5 Statt LD HL,A 
5 HL=HL*2 
; HL=HL*2 
5 HL=HL*2 
; ADD vorbereiten 
; Auch den letzte Matrixeintrag! 

; Matrixlaenge ins DE-Register 
; HL wiederherstellen 

i Dateiart fuer Kopfsatz 
; Einsprungadresse 0 
; CAS OUT DIRECT 

; Datei schliessen 
; Pufferspeicher wieder freigeben 
i Ruecksprung nach Basic 


5 Genau 1 Parameter zu uebernehmen! 

; Sonst Fehlermeldung 

; Dateinamen-Zeiger, Puffer reservieren 
; Datei zum Einlesen oeffnen 
; Adresse der Zeichenmatrix holen 
; CAS IN DIRECT 
; Eingabedatei schliessen 
; Speicher wieder freigeben 
; Ruecksprung nach Basic 
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Dateien verschlüsselt 


Dieses Programm für die Schnei¬ 
der-Computer zeigt Ihnen, wie sich 
Daten und Dateien verschlüsseln 
lassen . 


Zur Programmbedienung: Nach 
dem Start von CODEC (Codierer-De- 
codierer) werden Sie nach den Na¬ 
men der Ein- und Ausgabedatei ge¬ 
fragt. Die Benutzung eines Disket¬ 
tenlaufwerkes ist hier empfohlen, 
da Sie bei Kassettenbetrieb dauernd 
die Kassette mit der Einlesedatei 
und die Kassette mit der Ausgabe¬ 
datei wechseln müßten. Die Einga¬ 
be-Datei muß im ASCII-Format vor¬ 
liegen. 

Außerdem wird von Ihnen der Co¬ 
deschlüssel benötigt, mit dem die 
Dateien codiert und decodiert wer¬ 


den sollen. Aufgrund des verwen¬ 
deten Algorithmus dürfen im Code 
keine CHR$(0) auftauchen. Dieses 
bereitet aber keine Probleme, da das 
Zeichen sowieso nicht von der Ta¬ 
statur aus eingegeben werden kann. 
Der Codeschlüssel kann beliebig 
lang sein. Sie sollten aber daran 
denken, daß Sie sich ihn merken 
müssen! Das Programm unterschei¬ 
det übrigens nicht zwischen Klein- 
und Großbuchstaben. 

Weiter werden Sie gefragt, ob Sie 

(1) Codieren oder 

(2) Decodieren 

wollen. 

Sofort nimmt das Programm seine 
Arbeit auf und meldet sich kurz da¬ 
nach mit READY wieder zurück. 


Programmfunktion 

Die Codierung erfolgt nach der 
XOR-Methode. Das heißt, daß alle 
Strings zeichenweise mit dem Co¬ 
deschlüssel logisch exklusiv ge- 
ODERt werden. Dies hat den Vor¬ 
teil, daß beim Codieren und Deco¬ 
dieren der gleiche Schlüssel ver¬ 
wendet werden kann. Ein einfaches 
Basic-Beispiel dafür: 

PRINT 89 XOR 3: 90 

PRINT 90 XOR 3: 89 

„3“ ist hier der Codierschlüssel, 
„89“ die zu codierende Zahl. 

Nun taucht aber aufgrund der Pro¬ 
grammierung des Schneider-Be¬ 
triebssystems das Problem auf, daß 
der ASCII-WerL 26 keinesfalls in ei¬ 
ner Datei enthalten sein darf. Er 
würde als EOF-(End-of-File-)Krite- 
rium fehlinterpretiert und das La¬ 
den abgebrochen, obwohl die Datei 
noch längst nicht zu Ende ist. 

In normalen Dateien taucht 
CHR$(26) fast nie auf, sehr wohl 
aber u. U. in einer codierten Datei. 
CODEC verwendet einen einfachen 
Trick: es setzt einfach bei allen Zei¬ 
chen das 7. Bit, so daß aus dem 
Zeichen 26 das Zeichen 
26+128=154 wird. Die Einschrän¬ 
kung besteht nun für Sie darin, daß 
Sie nur den 7-Bit-ASCII-Zeichen- 
satz verwenden dürfen. Eine wirkli¬ 
che Beschränkung der Möglichkei¬ 
ten ist das aber nicht: Von 0 bis 127 
stehen alle genormten Zeichen, von 
128 bis 255 die Sonderzeichen, die 
z. B. bei Textverarbeitungs-Dateien 
kaum verwendet werden. 

M. Kotulla/LM 



DftTEI-CODIERER & DECOPIERF.lt 


Martin Kotulla 1985 


Mit diesen Progrann können Sie Dateien 
nach einen beliebigen Schlüssel 
codieren und wieder decodieren. 


I- 


Bitte drücken Sie eine Taste! 





Leistling • CODEC (Programm zum Ver- und Entsch 1 uesse 1 n von Dateien) 

100 ' XXXXMäXXXXMXXMXKXXMXMtX# XX 

110 ' * # 

120 f * DATEI-CODIERER St DECODIERER # 

130 9 * * 

140 r #**x###xxx**#x#x**xx#*#*##*x*x* 
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150 • 

160 MODE HINK 0,13:INK 1,0:INK 2,0,3:INK 3,1 
170 PAPER 0:PEN 3:BOEDER 10:SPEED INK 30,20 
180 SYMBOL AFTER 250 

190 SYMBOL 254, t/66, t/0, t/66, t/66, t/66, t/66, t/3E, t/0 
200 SYMBOL 255, t/66, t/0, t/3C, t/66, t/66, t/66, &3C, t/0 
210 LOCATE 1,1: PR INT STRING$(40,210) ! 

220 LOCATE 1,2 

230 PRINT CHRt(24)+" DATEI-CODIERER & DECODIERER ”+CHRt(24) 

240 LOCHTE 10,5:PRINT CHRt(164)l" Martin Kotulla 1985" 

250 PRINT:PRINT STRlNGt(40,210) :PRINT 

260 PEN 1:PRINT " Mit diesem Programm k"+CHRt(255)+”nnen Sie Dateien" 

270 PRINT-’PRINT " nach einem beliebigen Schl"+CHRt(254)+"ssel" 

280 PRINT-’PRINT " codieren und wieder decodieren. ” 

290 PEN 3:PRINT:PRINT STRINGt (40,210) : PRINT :PEN 1 
300 LOCATE 1,20:PEN 2 

310 UHILE INKEYtO"":UEND ’ Tastaturpuffer loeschen 
320 PRINT ” Bitte dr"+CHRt(254)+"cken Sie eine Taste!" 

330 UHILE INKEYt="":UEND ' Auf Tastendruck warten 
340 MODE 1:PEN 3 

350 PRINT.’PRINT " Bitte geben Sie den Code-Schi "+CHR4(254) + "ssel an!" 

360 PEN 1 .‘PRINT.’PRINT STRING$(40,210) :PRINT 
370 PEN 3: PR INT ” "i-’LINE INPUT code$ 

380 PEN 1:PRINT:PRINT STRING$(40,210):PR INT:PEN 3 

390 PRINT " Name der Eingabedatei •’":PEN 1 :PRINT:LINE INPUT " ",infilet 

400 PEN 3:PRINT:PRINT " Name der Ausgabedatei:":PEN 1 

410 PEN 1:PRINT:LINE INPUT " ", outfilet 

420 OPENIN infilet 

430 OPENOUT outfilet 

440 PEN 1 :PRINT:PR INT STR ING$(40,210) ’-PEN 3 
450 code$=UPPER$(code$) 

460 IF LEN(codiert)>254 THEN 480 

470 codiert=codiert+MIDt(codet, 1,255-LEN(codiert)) ‘.GOTO 460 
480 PRINT " CU Codieren" 

490 PRINT:PRINT " (21 Decodieren" 

500 cd$=UPPERt(INKEYt):IF cdt="" THEN 500 
510 IF cdt="l" THEN 550 
520 IF cdt="2" THEN 650 
530 PRINT CHRt(7)I:GOTO 500 

540 ' CODIERUNG *************************************************************** 

550 UHILE NOT EOF 

560 bt="":LINE INPUT 49,at 

570 FOR i=1 TO LEN(at) 

580 bt=bt*CHRt((ASC(MIDt(at,i)) XOR ASC(MID$(codiert, i))) OR 128) 

590 NEXT i 

600 PRINT 49, bt 
610 UEND 

620 CLOSEIN:CLOSEOUT:CLEAR 
630 MODE 1:PEN 1:END 

640 ' DECODIERUNG ************************************************************* 

650 UHILE NOT EOF 

660 bt="":LINE INPUT 49, at 

670 FOR i=l TO LEN(at) 

680 bt=b$+CHRt((ASC(MIDt(at, i)) XOR ASC(MIDt(codiert, i))) AND 127) 

690 NEXT i 

700 PRINT 49, bt 
710 UEND 

720 CLOSEIN:CLOSEOUT:CLEAR 
730 MODE 1:PEN 1:END 

740 ’ iHHHHe*X*##»**X*K*il*K*********X******************************************* 
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Rund um den Kalender - 

auf dem 

Schneider (PC 464 


Wollen Sie wissen , an welchem 
Wochentag Sie geboren sind oder 
Ihre Freunde Geburtstag feiern , 
brauchen Sie eine Planungshilfe 
für den Urlaub oder zur Gehaltsab¬ 
rechnung? Dieses Programm für 
den Schneider CPC berechnet ein¬ 
zelne Wochentage für Sie und 
druckt auf Wunsch einen Kcdender 
für jedes beliebige Jahr seit der 
Kalenderreform von Papst Gregor 
XIII aus - wahlweise auf dem Bild¬ 
schirm oder einem beliebigen an¬ 
geschlossenen Drucker . 

Programmbedienung 

Nach dem Programmstart erscheint 
ein kurzes Menü mit drei Unter¬ 
punkten: 

- Wochentag berechnen 

- Kalender ausdrucken 

- Programm beenden 

Mit den Cursor-Up- und Cursor- 
Do wn-Tasten können Sie einen der 
drei Menüpunkte anwählen, worauf 
dieser invertiert angezeigt wird. So¬ 
bald Sie die COPY-Taste betätigen, 
wird dieses Unterprogramm aufge¬ 
rufen. 

Wochentag berechnen 

Hier können Sie einen bestimmten 
Tag eingeben, worauf der Computer 
den zugehörigen Wochentag aus¬ 
rechnet. Es sind folgende Eingaben 
nötig: 

Tag im Monat? 30 
Welcher Monat? 6 
Welches Jahr? 1985 


Nach kurzer Zeit meldet sich der 
Computer wieder: 

Der 30. 6. 1985 war ein Sonntag. 

Statt der Nummer des Monats kön¬ 
nen Sie auch den Monatsnamen an¬ 
geben. Dabei wird nicht zwischen 
Klein- und Großschreibung unter¬ 
schieden, und nur die ersten drei 
Buchstaben sind signifikant. Alle 
folgenden Namen werden z. B. als 
Januar interpretiert: 

Januar, JANUAR, januar, JAN, jAn, 
JaN, JANaaa, jAN*** 

Die Jahreseingabe kann vierstellig 
erfolgen, z. B. „1985“ oder auch in 
der verkürzten Form „85“. 


Kalender ausdrucken 

Mit diesem Programmteil können 
Sie einen vollständigen Kalender 
für ein beliebiges Jahr ausdrucken 
lassen, was z. B. für Unternehmer 
bei der Buchführung recht nützlich 
ist. 

Wahlweise erfolgt die Ausgabe auf 
dem Bildschirm oder auf einem 
Drucker. Der Druckertyp ist hierbei 
egal, da keinerlei spezifische Steu¬ 
erzeichen verwendet werden. 

Der Dialog mit dem Computer kann 
z. B. so aussehen: 

Für welches Jahr? 83 
Druckerausgabe? j 

Auch hier kann die Jahreszahl wie¬ 
der auf zwei Stellen verkürzt wer¬ 
den. Bei der Frage nach dem Ausga- 


UOC HENTftG BERECHNEN 


Hier können Sie ein Datum eingeben 
und den Computer den zugehörigen 
Wochentag berechnen lassen. 


Tag im Monat? 

14 | 

£ 

Melcher Monat? 

12 


Meiches Jahr? 

1043 

1 = 

1 Cri o 

- - - = 

Der 14.12.1943 

4 JpP i 

war ein Dienstag. 

. . 


Bitte drucken Sie eine Taste! 
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begerät sind die Buchstaben „jJnN“ 
gestattet. 

Ein Kalenderausdruck für 1985 be¬ 
ginnt z. B. so: 

Januar: 

So-Mo-Di-Mi-Do-Fr-Sa 
01 02 03 04 05 
06 07 08 09 10 11 12 
13 14 15 16 17 18 19 
20 21 22 23 24 25 26 
27 28 29 30 31 

Selbstverständlich werden bei allen 
Datumsberechnungen eventuelle 
Schaltjahre berücksichtigt - genaue¬ 
res dazu finden Sie unter dem 
Punkt „Programmaufbau“. 

Programm beenden 

Dazu gibt es nicht allzuviel zu sa¬ 
gen: Nach einer Sicherheitsabfrage 
wird das Programm gestoppt. 


Hovenbor 


So- 


Deze 

So- 


Mo 

-Di - 

Mi- 

Do- 

-Fr- 

■Sa 






01 

0 3 

04 

05 

06 

07 

08 

10 

11 

12 

13 

14 

IS 

17 

18 

19 

20 

21 

22 

24 

25 

26 

27 

28 

29 

:enber : 





Mo 

-Di 

-Mi- 

-Do 

-Fr- 

-Sa 

Ol 

02 

03 

04 

OS 

06 

08 

09 

10 

11 

12 

13 

IS 

16 

17 

18 

19 

20 

22 

23 

24 

2S 

26 

27 

29 

30 

31 





Sie 

eine 

Tas 

230 


Programmaufbau 


Das Programm ist modular geglie¬ 
dert, so daß das Listing recht über¬ 


sichtlich ist. Ab der Zeile 1280 be¬ 
ginnt das wichtigste Unterpro¬ 
gramm, denn hier wird aus den drei 
Variablen day, rnonth und ypur der 
Wochentag berechnet und im String 
dayname$ dem aufrufenden Pro¬ 


gramm zurückgegeben. Allerdings 
muß nach dem Aufruf des Pro¬ 
gramms die Variable errflag geprüft 
werden, denn ein Wert ungleich 
Null zeigt an, daß die Eingangsda¬ 
ten nicht korrekt waren. 


Der genaue Programmaufbau: 

1340 Korrektur der Jahreszahl: Aus 85 wird 1985 

1350 Prüfung, ob das Jahr vor Beginn des gregorianischen Kalenders liegt. 

1360 Prüfung auf unsinnige hohe Jahreszahlen (>4000!) 

1370 Prüfung, ob der Monatswert gültig ist. 

1380 Prüfung, ob der Tageswert gültig ist. 

1400 Alle vier Jahre ist ein Schaltjahr. 

1410 Aber nicht, wenn es ein Jahrhundert ist und nicht durch 400 teilbar. 

1420 Prüfung auf den 27. Februar in einem Nicht-Schaltjahr. 

1430 Prüfung auf den 28. Februar in einem Schaltjahr. > , . 

1450 Berechnung aller vergangenen Tage seit Christi Geburt bis Jahresanfang 
1460 Hier werden die vergangenen Tage seit Jahresanfang addiert. 

1470 Korrektur bei Schaltjahren um einen Tag. 

1480 Die vergangenen Tage werden in eine Zahl von 0 bis 6 umgesetzt. 

1490 Der Wert wird als Index des Stringfelds weekday$(J verwendet. 

Vorher findet in den Zeilen 210 bis 270 die Variablendefinition statt: 

- month$() enthält alle Monatsnamen eines Jahres (Januar, Februar...]. 

- days.in,month(J speichert die Zahl der Tage für jeden Monat. 

- total.daysf) enthält für jeden Monat die Zahl der Tage seit Jahresanfang. 

- weekday$(J beinhaltet die Strings der Wochentage, also Montag. Dienstag ... 

Die übergeordneten Teilprogramme verwenden diese Routine und steuern 

den Dialog mit dem Benutzer. Das Programm kann auf folgende Art um weitere 
Menüpunkte erweitert werden: 

- Nach Zeile 420 Einsetzen des neuen Punktes ab ch$(4). 

Alle Strings müssen mit Leerzeichen auf 40 Buchstaben auf gefüllt werden. 

- Ändern Sie in Zeile 350 die Variable num; sie enthält die Zahl der Menupunkte. 

- Erweitern Sie die ON-GOTO-Befehlszeile in Zeile 580. 


So könnten Sie das Programm z. B. zur Berechnung der beweglichen Festtage erweitern. 
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Listing t Kalender 


100 ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
110 1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
120 ' x x 

130 * x RUND UH DEN KALENDER x 
140 ' x x 

150 ' xxxxxxxxxxx*xxxxxxxxxxxxxxxxxxxx 
160 ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
170 • 

180 ' (C) Martin KotuJla 16.6.1985 

190 ' _ 

200 • 

210 DIM month$(12), days. in. month( 12), total. days(12), weekdayt (7) :one. year=365 
220 ' MONATE UND ZUGEHOERIGE TAGE EINLESEN xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
230 FOR i=l TO 12:READ montht(i), days.in.month(i) 

240 total.days(i) = total. days(i-1)*days. in.month(i-1) 

250 total. days(i-1) = total. days(i-1)+l:NEXT i 

’260 total. days(12) = total. days(12) +1 

270 FOR i=0 TO 6:READ ueekday$(i):NEXT i 

280 MODE HINK 0,1: INK 1,24: INK 2,24, HINK 3,21 

290 PAPER 0:BORDER 2:SPEED INK 25,25 

300 SYMBOL AFTER 252 

310 SYMBOL 252, &6C, &0, &78, &C, &7C, &CC, &76, &0 

320 SYMBOL 253, &0, &0, &0, &0, &0, &0, &0, &FF 

330 SYMBOL 254, &66, A0, &3C, &66, &66, &66, &3C, &0 

340 SYMBOL 255, &66, &0, &66, &66, &66, &66, &3E, &0 

350 num=3:rou=10:co!=10:choice-l 

360 PEN 3:L0CATE 1,1: PR INT STR1NGU40, 210) / 

370 LOCATE 1,2:PR1NT CHR$(24)!SPACE$(10);"RUND UM DEN KALENDER"i 
380 PRINT SPACE$(10);CHR$(24) 

390 LOCATE 10,6:PRINT CHR$(164)i" Martin Kotulla 1985" 

400 ch$(l)=" WOCHENTAG BERECHNEN"+SPACE$(19) 

410 ch$(2)=" KALENDER AUSDRUCKEN"*SPACE$(19) 

420 ch$(3)=" PROGRAMM BEENDEN"*SPACE$(22) 

430 PEN l:LOCATE l,row:FOR i=l TO num:PRINT ch$(i):NEXT i 

440 PEN 3:LOCATE 3,20:PR/NT "Bitte w"*CHR$(252)*"hlen Sie mit "; 

450 PRINT CHRt(l);CHR$(10);CHR$(1);CHR$(ll)i" und COPYI" 

460 PEN 1 .‘LOCATE 1, choicex2+row-3 

470 PRINT STRING$(40,253)}CHR$(24)ich$(choice)ICHR$(24) 

480 a$=INKEY$ 

490 IF a$=CHR$(224) THEN 580 ' Copy gedrueckt 

500 IF a$="" OR (a$OCHR$(&F0) AND a$OCHR$(&Fl)) THEN 480 

510 LOCATE l,choicex2+row-3:PRINT SPACE$(40)tch$(choice) 

520 IF a$=CHR$(&F0) THEN choice=choice-l ELSE choice=choice*l 
530 IF choice<l THEN choice=num 
540 IF choice>num THEN choice=l 
550 SOUND 1,1000,10 

560 LOCATE 1, choicex2*rou-3:PRINT STRING$(40,253 )/ 

570 PRINT CHR$(24);ch$(choice)!CHR$(24):GOTO 480 

580 ON choice GOTO 600,870,1190 ' In Unterprogramm springen 

590 ' 1- Wochentag berechnen xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
600 PEN 1:MODE 1:PR INT STRING$(40,253)i:PRINT CHR$(24);ch$(l)SCHR$(24):PR1NT 
610 LOCATE 1,4 
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620 PEN 3:PR1NT " Hier k"+CHR$(254)+"nnen Sie ein Datum eingeben" 

630 PR INT:PR INT " und den Computer den zugeh"+CHR$(254) + "rigen" 

640 PRINT:PRINT " Wochentag berechnen lassen. ":PRINT 
650 PEN 1 .‘PRINT STRING$ (40,253) 

660 PRINTLINE INPUT " Tag im Monat? ",day*:day=VAL(day$) 

670 PRINTLINE INPUT " Welcher Monat? ",month$.‘month=VAL(month$) 

680 PRINTLINE INPUT " Welches Jahr? ",year$:year=VAL(year$) 

690 PR INT‘.PRINT 

700 IF month<>0 THEN 760 r Pruefen ob Monatseingabe z.B. "1" oder "Januar" 

710 FOR i=l TO 12 

720 IF LEFT$(UPPER$(month$),3)=LEFT$(UPPER$(month$(i)),3) THEN 750 

730 NEXT i ' Nicht gefunden: 

740 PRINT CHR$(7);:GOTO 610 
750 month$=MID$(STR$(i) ,2):month=i 
760 GOSUB 1340 ' Tag berechnen 
770 year$=MID$(STR$(year),2) 

780 month$=MID$(STR$(month) ,2) 

790 day$=MIDt(STR$(day), 2) 

800 IF errflag=l THEN PRINT CHR*(7)I" * Fehler in der Eingabe! "‘.GOTO 610 
810 PRINT " Der "+day$+". "+month$+"."+year$+" war ein ”*dayname$+". " 

820 WHILE JNKEY$<>"":WEND • Tastaturpuffer loeschen 
830 LOCATE 1,23:PR1NT STRING$(40,253)}CHR$(24 )/ 

840 PRINT " Bitte dr"+CHR$(255)+”cken Sie eine Taste! n +SPACE$(10)+CHR$(24 )/ 

850 WHILE INKEY$="":WEND:MODE 1 ‘.GOTO 360 

860 ' 2- Malender ausdrucken ************************************************** 
870 PEN 1:MODE 1:PRINT STRING$(40, 253) i .‘PRINT CHR$(24) ;ch$(2) SCHR$(24) :PRINT 
880 LOCATE 1,4 

890 PEN 3:PR INT " Hiermit k"+CHR$(254) + "nnen Sie wahlweise auf" 

900 PRINT.‘PRINT " dem Bildschirm oder Drucker den" 

910 PRINT:PRINT " Kalender eines Jahres ausgeben." 

920 PEN l:PRINT.‘PRINT STR1NG$(40,253) : PR INT 
930 PRINT " F"+CHR$(255)+"r welches Jahr? "1 

940 LINE INPUT year$:year=VAL (year$) : IF year'<100 THEN year=year+1900 

950 PRINT:PRINT " Druckerausgabe? ";:PEN 2:PRINT CHR$(143) -‘PEN 1 

960 in$=UPPER$(INKEY$):IF in$="" THEN 960 

970 IF in$="J" THEN dv=8:G0T0 1010 

980 IF in$="N" THEN dv=0:GOTO 1000 

990 PRINT CHR$(7) i .‘GOTO 960 

1000 MODE l:WINDOW 10,34,2,24:INK 1,0:INK 0,10:BORDER 1 

1010 FOR month=l TO 12:PRINT # dv:PRINT Udv," " ;month$(month) ;":":PRINT tdv 
1020 PRINT Hdv," So-Mo-Di-Mi-Do-Fr-Sa":PR1NT »dv 
1030 day=l .‘GOSUB 1340 

1040 IF weekday=0 THEN PRINT Hdv," 01 "I ELSE PRINT tdv,TAB(weekday*3+2) I "01 "1 
1050 IF month=2 AND schaltjahr=l THEN lastday=29:G0T0 1070 
1060 lastday=days.in.month(month) 

1070 FOR i=2 TO lastday 

1080 dy$=MID$(STR$(i), 2)+ " ":IF LEN(dy$)=2 THEN dy$="0"+dy$ 

1090 IF POS(#dv)>20 THEN PRINT *dv,TAB(2) i 
1100 PRINT #dv,dy$,‘ 

1110 NEXT i: PR INT Hdv.'NEXT month 

1120 IF dv=0 THEN PRINT:PRINT:WINDOW 1,40,23,24 ELSE LOCATE 1,23 
1130 WHILE INKEY$<>"":WEND ' Tastaturpuffer loeschen 
1140 PRINT STRING$(40,253)!CHR$(24)l 

1150 PRINT " Bitte dr"+CHR$(255)+"cken Sie eine Taste!"+SPACE$(10)+CHR$(24); 
1160 WHILE 1NKEY$="":WEND ' Auf Tastendruck warten 
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1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 


MODE 1tBORDER 2:INK 0,1:INK 1,24:INK 2,24,1:INK 3,21:G0T0 360 

• 3- Programm beenden **************************************************** 
PEN 1 ‘-MODE 1: PR INT STR ING $ (40,253) /: PR INT CHR$(24) !ch$(l) ;CHR$(24) :PRINT 
LOCATE 1,4 

PEN 3:PRINT " Vollen Sie die Arbeit mit diesem" 

PRINT:PRINT " Programm wirklich beenden? "} 

PEN 2:PRINT CHR$(143)S 
in$=UPPER$(lNKEY*):!F int="" THEN 1240 
IF in$="J" THEN MODE 1:PEN 1:BORDER 1:END 
IF in$<>"N" THEN PRINT CHR$(7)/:GOTO 1240 
MODE 1:GOTO 360 
1 * 

r * Unterprogramm: Tag ausrechnen 

r * Eingangsvariable: day,month,year 

' * Ausgangsvariable: dayname$ 

• * 

' Ueberpruefung der Daten: - 

IF year<100 THEN year=year+1900 

IF year<1584 THEN errtlag=l:RETURN ELSE errflag=0 

IF year>4000 THEN errflag=l:RETURN 

IF month<l OR month>12 THEN errflag=l:RETURN 

IF day<l OR day>days.in.month(month) THEN errflag=l:RETURN 

' Schaltjahr beruecksichtigen - 

IF year MOD 4=0 THEN schaltJahr=1 ELSE schalt Jahr=0 
IF year MOD 100=0 AND year MOD 40000 THEN schalt Jahr =0 
IF schaltJahr=0 AND month=2 AND day>27 THEN errflag=l:RETURN 
IF schaltjahr=l AND month=2 AND day>28 THEN errflag=l:RETURN 

1 Tag berechnen -- 

passed. days=one. year*year+year \4-year \100*year\400-one.year 
passed.days=passed.days+total.days(month)+day-l 
IF month<=2 AND schaltjahr=l THEN passed.days=passed.days-1 
weekday=passed. days-7*INT(passed. days/7) 
dayname$=weekday$(weekday):RETURN 

' Daten zur Vochentagsberechnung ***************************************** 
DATA Januar, 31,Februar, 28, Maerz, 31,April,30, Mai, 31, Juni, 30, Juli, 31 
DA TA August, 31, September, 30, Oktober, 31, November, 30, Dezember, 31 
DATA Sonntag, Montag, Dienstag, Mi t twoch, Donnerstag, Frei tag, Samstag 













Utilities 



Bei den Schneider-Computern mit 
3-Zoll-Floppies lassen sich Disket¬ 
ten — wie bei vielen anderen Com¬ 
putern — durch Umlegen eines klei¬ 
nen Hebels an der Diskette mit ei¬ 
nem Schreibschutz versehen . Die¬ 
sen Schreibschutz kann man mit 
dem folgenden kurzen Maschinen¬ 
programm auch von Basic aus ab- 
fragen . 

Bei der Programmeingabe müssen 
Sie sich entscheiden, ob Sie den 
Quellcode des Maschinenpro¬ 
gramms oder das Basic-Ladepro- 
grarnm mit den DATA-Zcilen abtip¬ 
pen wollen» Der Basic-Loader gibt 
zusätzlich einige Bedienungshin¬ 
weise und erzeugt frei verschiebba¬ 
ren Maschinencode und legt ihn im¬ 
mer genau unter HIMEM ab. Auf 
diese Weise kann das „Speicher¬ 
platzopfer“ auf 80 Bytes beschränkt 
werden. 

Nach der Initialisierung der RSX- 
Erweiterung steht Ihnen ein neuer 
RSX-Befehl zur Verfügung: 

|DISC.WP 

„WP“ steht für „Write-protected“, 
also schreibgeschützt. Nach der Ein¬ 
gabe dieses RSX-Befehls können Sie 
die Speicherstelle 356 abfragen, die 
normalerweise vom Computer nicht 
benutzt wird und damit für unsere 
Zwecke zur Verfügung steht: 

A=PEEK(356) 

Wenn A=0, dann ist der Schreib¬ 
schutz auf der Diskette nicht einge¬ 
rastet; ein Wert von 255 sagt hinge¬ 
gen aus, daß der Schreibschutz ge¬ 
setzt ist. 

Dieses Programm läßt sich z. B. ge¬ 
winnbringend in Programmen ein- 
setzen, die die Diskettenlaufwerke 
benutzen. Es ist nämlich zumindest 
beim CPC-464 nicht möglich, Feh¬ 
lermeldungen der Floppy in Basic 
abzufangen! Probieren Sie doch ein¬ 
mal ON ERROR GOTO: dieser Be¬ 
fehl ist bei Diskettenfehlern wir¬ 
kungslos! Mit DISC.WP können Sie 


wenigstens diese - besonders ärger¬ 
liche - Fehlerquelle ausschließen. 
Besonders für fortgeschrittene Ma¬ 
schinenprogrammierer dürfte die 
Funktionsweise des Programms in¬ 
teressant sein: 

Wie fast alle Peripheriegeräte, die 
an Z80-Computer angeschlossen 
sind, werden auch die Floppies 
über die Z80-Ports verwaltet. Dies 
sind Ein- und Ausgabekanäle zur 
Kommunikation der CPU mit ande¬ 
ren ICs und Geräten. Genau auf die¬ 
se Weise wird auch der FDC (Flop- 
py-Disc-Controller) 765 angesteuert: 
Die Portadresse &FB7E verwaltet 
das Hauptstatus-Register des Con¬ 
trollers, die Adresse &FB7F das Da¬ 
tenregister. Werden über den Daten¬ 
port die Befehlsbytes &04 und &00 
ausgegeben, so liest der FDC sein 
Statusregister 3 aus, in dessen Bit 6 


das WP-Flag steht. Der Inhalt des 
Registers wird auf den Datenport ge¬ 
schickt und kann dort mit einem IN- 
Befehl gelesen werden. 

Ganz so einfach ist die Sache aber 
doch nicht: Der Floppy-Controller 
ist für Maschinenprogramme zu 
langsam! So muß zuerst festgestellt 
werden, ob der FDC ein „Request 
for Master“ schickt, eine Art Bestäti¬ 
gung der Empfangsbereitschaft. Au¬ 
ßerdem muß man nach jedem Byte, 
das auf den Datenport gegeben 
wird, dem Floppy-Controller Zeit 
geben, die benötigten Informationen 
zu liefern. Am einfachsten ist es, 
sich in einem ROM-Listing des 
Floppy-Betriebssystems ab der 
Adresse &C95C die Hilfsroutine an¬ 
zuschauen und im eigenen Pro¬ 
gramm zu verwenden! 

Martin Kotulla/LM 
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Utilities 


L i 

s t ing - 

DI SC-SCHREIBSCHUTZ AUSLESEN 

100 

f 

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

110 

t 

; * 



X 

120 

r 

; x RSX-Erweiterung 

zur Abfrage des Schreibschutzes von Disketten x 

130 

t 

; * 



X 

140 

r 

; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

150 

t 





160 

t 


ORG 

&A000 

; Der Basic-Loader ist relokatibel ! 

170 

r 





160 

t 

PORT 

EQU 

&FB7E 

; Status-Port des FDC 765 

190 

t 

MARK 

EQU 

&0164 

; Dort wird der UP-Status gespeichert 

200 

t 

LOGEXT 

EQU 

&BCD1 

; KL LOG EXTERNAL zum Einbinden von RSXs 

210 

r 





220 

t 

RSXTAB 

DEFU 

NAMTAB 

; Zeiger auf NamenstabeiJe 

230 

f 


JP 

UP TEST 

; Sprung in die Maschinenroutine 

240 

t 





250 

t 

NAMTAB 

DEFM 

n DISC. U" 

; Befehlsname DISC.UP 

260 

r 


DEFB 

&D0, &00 

; Ende des Uortes und der Tabelle 

270 

r 





280 

r 

SPACE 

DEFS 

&04 

; Vier Bytes Hilfsspeicher fuer Kernel-ROM 

290 

r 





300 

r 

IN IT 

LD 

BC P RSXTAB 

; Zeiger auf Sprungtabelle 

310 

t 


LD 

HL,SPACE 

; Zeiger auf Hilfsspeicher fuers Betriebssystem 

320 

f 


JP 

LOGEXT 

; Erweiterung einbinden, Ruecksprung nach Basic 

330 

r 





340 

t 

UPTEST 

LD 

BC, PORT 

; Zeiger auf Status-Port des FDC 

350 

t 


LD 

A, &04 

; Befehlswort des FDC fuer "Sense Drive Status" 

360 

t 


CALL 

FDC 

; An den FDC ausgeben 

370 

t 


SUB 

A 

; Zweites Befehlswort fuer "Sense Drive Status" 

380 

t 


CALL 

FDC 

; Ebenso an den FDC ausgeben 

390 

r 





400 

r 

UAIT 

LD 

A, 8 

; Kurze Uarteschleife, bis der FDC 

410 

t 





420 

t 

UAITLP 

DEC 

A 

t den Uert des Statusregisters ST3 

430 

t 


NOP 


; geliefert hat 

440 

t 


JR 

NZ, UAITLP 


450 

t 





460 

t 


INC 

BC 

; Zeiger auf Datenport des FDC 

470 

t 


IN 

A, (C) 

; Uert des Statusregisters ST3 aus lesen 

480 

t 


BIT 

6, A 

; Das 6.Bit enthaelt das UP-Flag 

490 

t 


LD 

A,0 

/ Flag besetzen mit Null, wegen Flags kein SUB A 

500 

r 


JR 

Z, RETURN 

; Uenn nicht UP, sofort Ruecksprung 

510 

t 


XOR 

255 

; Sonst Akku mit &FF laden 

520 

t 





530 

r 

RETURN 

LD 

(MARK) ,A 

1 ln MARK das Flag zur Basic-Abfrage speichern 

540 

t 


RET 


; Ruecksprung nach Basic 

550 

t 





560 

t 

FDC 

PUSH 

AF 

1 Auszugebenden Akkuwert sichern 

570 

t 





580 

r 

HOLD 

IN 

A, (C) 

; Statusregister des FDC ei niesen 

590 

t 


ADD 

A,A 

I Bit 7 ins Carry-Flag schieben 

600 

r 


JR 

NC, HOLD 

; Uarten, solange nicht REQUEST FOR MASTER 

610 

r 





620 

t 

OUTPUT 

POP 

AF 

; Akkuwert wiederherstellen 

630 

t 


INC 

BC 

I Zeiger auf Datenport des FDC 765 

640 

f 


OUT 

(C),A 

I Akkuinhalt ausgeben 
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650 

» 

DEC 

C 

; Wieder Zeiger auf den Statusport des FDC 


660 

t 

LD 

A, 5 

/ Kurze Warteschleife 


670 

t 





680 

* LOOP 

DEC 

A 



690 

i 

NOP 




700 

p 

JR 

NZ, LOOP 



710 

p 

RET 


; Ruecksprung zum aufrufenden Programm 

■ 

720 

* 

END 


; xx*x####*#x#x#**#*x#*x******************* 


L, i s t i n g i DISC-SCHREIBSCHUTZ AUSLESEN 


100 ’ ********************************* 

110 ' * * 

120 ' * DlSC-SCHREIBSCHUTZ AUSLESEN * 

130 9 * * 

140 ' ********************************* 

150 ' 

160 SYMBOL AFTER 255:SYMBOL 255,&66,&0,&66,&66, &66,&66,&3E, &0 
170 MEMORY HIMEM-&50:start=HIMEM+l 
180 DEF FNmsb(a)=INT(a/256) AND 255 
190 DEF FNlsb(a)=UNT(a) AND 255 

200 FOR i=start TO start+&4C:READ a: sum=sum+a:POKE i,a>'NEXT 1 
210 IF sum=7984 THEN 230 ' Pruefsumme korrekt! 

220 PRINT CHR$(7)t" * Fehler in den DATA-ZeiIen!":PRINT:LIST 450- 

230 FOR i=1 TO 6:READ a:a=a-&A000+start 

240 va1ue=PEEK(a)+PEEK(a+1)*256-40960+start 

250 POKE a,FNlsb(value):POKE a+1,FNmsb(value) 

260 NEXT i 

270 CALL start+itll ' RSX-Eruei terung einbinden 
280 MODE 1: INK 0,1: INK 1,24: INK 2, 6,16: INK 3,21 
290 PAPER 0:PEN 3:B0RDER 2:SPEED INK 30,20 
300 LOCATE 1,1:PR INT STRING$(40,210)I 
310 LOCATE 1,2 

320 PRINT CHR$(24)+” DISKETTEN-SCHREIBSCHUTZ AUSLESEN "+CHR$(24) 
330 LOCATE 10,5:PRINT CHR$(164)+" Martin Kotulla 1985" 

340 PRINT STRING$(40,210) 

350 PEN 1:PRINT " Dieses Programm bietet einen neuen" 

360 PR1NT:PR1NT " Befehl, mit dem bestimmt werden kann," 

370 PRINT:PRINT " ob die Diskette im Laufwerk A schreib-” 

380 PR INT:PRINT " gesch"+CHR$(255)+ "tzt ist oder nicht." 

390 PRINT STRING$(40,210)I:PR1NT 

400 PEN 2:PR INT:PRINT TAB(9);"ID1SC.UP:PRINT PEEK(356)" 

410 PEN 3:PRINT:PR INT " Z.B. ist die eingelegte Diskette":PRINT 

420 IDISC.UP:IF PEEK(356)=0 THEN PRINT " ohne Schreibschutz!":PR1NT:END 

430 PRINT " mit einem Schreibschutz versehen!":PRINT 

440 ' Maschinencode **************************************************** 
450 DATA &05, &A0, &C3, &1A, &A0, &44, &49, &S3, &43, &2E, &57, &D0, &00, &20, &27, &0D 
460 DA TA &0A, &01, &00, &A0, &21, &0D, &A0, &C3, &D1, &BC, &01,&7E,'&FB, &3E, &04, &CD 
4 70 DA TA &3B, i/A0, &9 7, &CD, &3B, &A0, &3E, &08, &3D, &00, &20, &FC, &03, &ED, & 78, &CB 
480 DA TA & 77, &3E, &00, &28, &02, &EE, &FF, &32, &64, &01, &C9, &F5, &ED,&78, &87, &30 
490 DA TA &FB, &F1, &03, &ED,&79, &0D, &3E, &05, &3D, &00, &20, &FC, &C9 
500 ' Daten zum Verschieben des Maschinencodes ************************* 
510 DA TA &a000, &a003, &a012, &a015, &a020, &a024 

520 END • -- 
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Disc-Backup auf Kassette 


Mit diesem Programm , das auf al¬ 
len Schneider-CPC’s lauffähig ist } 
können Sie komplette Disketten 
auf Kassette speichern . 

Dieses Programm lohnt sich, solan¬ 
ge die 3-Zoll-Disketten noch so teu¬ 
er sind. Eine C60-Kassette, auf der 
sich eine komplette Diskette spei¬ 
chern läßt, kostet etwa 3 Mark - 
verglichen mit dem Diskettenpreis 
ein unschlagbarer Kostenvorteil. 

Die Eingabe dürfte keine Schwierig¬ 
keiten bereiten, deshalb gleich zur 
Bedienung von CBACKUP: 

Nach dem Programmstart werden 
einige allgemeine Informationen 
zum Programm ausgegeben und Sie 
werden aufgefordert, die zu lesende 
oder zu beschreibende Diskette ins 
Laufwerk A einzulegen. Das Pro¬ 
gramm „verkraftet“ CP/M-, Vendor- 
und Data-Only-Disketten. Lediglich 
das „exotische“ IBM-Format wird 
nicht verarbeitet. Eine zu „ladende“ 
Diskette sollte aber im gleichen For¬ 
mat formatiert sein, wie die, die auf 
Kassette gespeichert wurde, da alle 
Formate die System- und Katalog¬ 
spuren unterschiedlich verwalten. 
Nach einem Tastendruck geht es 
weiter im Programm: Sie haben die 
Wahl zwischen 

(1) Diskette abspeichern und 

(2) Cassette einiesen. 


Diskette abspeidiem 

Hier werden Sie gefragt, ob die Kas¬ 
settenmeldungen angezeigt werden 
sollen oder nicht. Geben Sie „J“, „j“, 
„y“ oder „Y“ für Ja oder Yes ein, so 
müssen Sie nach jeweils 45 gespei¬ 
cherten Tracks die Meldung 
„PRESS REC AND PLAY THEN 
ANY KEY“ abwarten und eine Taste 
drücken. Dies ist nur dann sinnvoll, 
wenn Sie kürzere als C60-Kassetten 
verwenden und diese nach einiger 
Zeit umdrehen müssen. 

Bei einer Eingabe von „N“ oder „n“ 
für Nein läuft das Programm auto¬ 
matisch ab und gibt nur von Zeit zu 
Zeit „Reading“ mit den Tracknum¬ 
mern und „Writing“ aus. Sie kön¬ 
nen das Programm somit unbeauf¬ 
sichtigt laufen lassen. 

Die nächste Wahlmöglichkeit sieht 
so aus: 

(0] SPEED WRITE 0 
(1) SPEED WRITE 1 

Hiermit wird die Geschwindigkeit 
der Datenaufzeichnung auf dem 
Kassettenrecorder festgelegt. Ent¬ 
sprechend den Basic-Befehlen steht 
SPEED WRITE 0 für 1000 Baud und 
SPEED WRITE 1 für 2000 Baud. Bei 
der höheren Geschwindigkeit dau¬ 
ert das Sichern einer Diskettenseite 
etwa eine halbe Stunde. 


Kassette einiesen 

Mit diesem Unterprogramm lassen 
sich auf Kassette gespeicherte Dis¬ 
kettenseiten wieder auf eine Disket¬ 
te zurückschreiben. Bei der Frage 
„Cassettenmeldungen anzeigen?“ 
gilt das gleiche wie oben. 

Sobald Sie diese Frage beantwortet 
haben, beginnt der Computer mit 
dem Laden von Kassette. Selbstver¬ 
ständlich muß dann die PLAY-Ta- 
ste gedrückt werden. 

Wenn die Daten übertragen sind, er¬ 
scheint eine entsprechende Mel¬ 
dung und Sie werden gefragt, ob 
noch eine Diskette geladen oder ge¬ 
speichert werden soll. Der Compu¬ 
ter springt bei „N“ für Nein nach 
Basic zurück oder startet bei „J“ für 
Ja das Backup-Programm erneut. 
Noch einige Hinweise: Verwenden 
Sie bitte nur Qualitätskassetten. Bei 
„billigen“ Kassetten ist die Gefahr 
von Dropouts (Aussetzer) zu hoch 
und würde ggf. Ihre Sicherheitsko¬ 
pie unbrauchbar machen. Nehmen 
Sie aber nur Ferro-Bänder; Sie tun 
Ihrem Computer mit Chrom-Kasset¬ 
ten keinen Gefallen! Auch lassen 
sich von der Backup-Kassette keine 
Programme direkt laden, die Daten 
müssen zuerst wieder auf eine 
„richtige“ Diskette überspielt wer¬ 
den, um die Programme lauffähig zu 
machen. M. Kotulla/LM 
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; ****************************************** 

00003 



; « 

* 

00004 



$ * Quellcode zum 

Maschinenspracheteil * 

00005 



; * von 

CBACKUP « 

00006 



; » 

* 

00007 




00008 

00009 

A000 

(AOOO) 

ORG &AOOO 


000.10 

00011 

A000 

(BCD4) 

FINDCM EQU &BCD4 

; KL FIND COMMAND 
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00012 

AOOO 

84 

CMD84 

DEFB 

&84 

; RSX-Read Sector = &84 

00013 

A001 

85 

CMD85 

DEFB 

&85 

5 RSX-Write Sector = fc85 

00014 







00015 

A002 

(0002) 

RDJMP 

DEFS 

2 

; Speicher fuer Sprung- 

00016 

A004 

(0001) 

RDROM 

DEFS 

1 

; Adr. und ROM-States, 

00017 

A005 

(0002) 

WTJMP 

DEFS 

2 

; die von KL FIND COMMAND 

00018 

A007 

(0001) 

WTROM 

DEFS 

1 

; geliefert werden 

00019 







00020 



; ***** 

Initialisierung der RSX-Spruenge ***** 

00021 







00022 

A008 

21 00 AO 

1N IT 

LD 

HL,CMD84 

; Zeiger auf RSX-Namen 

00023 

AOOB 

CD D4 BC 


CALL 

FINDCM 

; KL FIND COMMAND 

00024 

AOOE 

22 02 AO 


LD 

(RDJMP),HL 


00025 



; Adresse fuer 

RST-Sprung 

speichern 

00026 

A011 

79 


LD 

A,C 

5 ROM-Status in den Akku 

00027 

A012 

32 04 AO 


LD 

(RDROM),A 

5 mit der Adr. speichern 

00028 







00029 

A015 

21 01 AO 


LD 

HL,CMD85 

; Zeiger auf RSX-Namen 

00030 

A018 

CD D4 BC 


CALL 

FINDCM 

; KL FIND COMMAND 

00031 

A01B 

22 05 AO 


LD 

(WTJMP),HL 


00032 



; Adresse fuer 

RST-Sprung 

speichern 

00033 

A01E 

79 


LD 

A,C 

5 ROM-Status in den Akku 

00034 

A01F 

32 07 AO 


LD 

(WTROM),A 


00035 



; Und mit der 

Adresse speichern 

00036 

A022 

C9 


RET 


; Ruecksprung nach Basic 

00037 







00038 



; ***** 

45 Sektoren lesen 

*«**««*««****** 

00039 







00040 

A023 

IE 00 

.READ 

LD 

E,0 

; Laufwerk A=0 

00041 

A025 

06 2D 


LD 

B, 45 

; 45 Sektoren laden 

00042 

A027 

OE 41 


LD 

C, &41 

; Sektornummer 

00043 

A029 

16 00 


LD 

D,0 

; Tracknummer 

00044 

A02B 

21 68 42 


LD 

HL,17000 


00045 



; Startadr. des Sektorpuffers 

00046 







00047 

A02E 

DF 

RDLOOP 

RST 

&18 

; Sektor einiesen 

00048 

A02F 

02 AO 


DEFW 

RDJMP 

*, Zeiger auf Sprungvektor 

00049 







00050 

A031 

79 

RDNEXT 

LD 

A,C 

; Sektornummer in den Akku 

00051 

A032 

OC 


INC 

C 

; Zeiger naechster Sektor 

00052 

A033 

FE 49 

7 

CP 

&49 

; War der letzte Sektor #9 

00053 

A035 

38 03 


JR 

C,RDCONT 


00054 



; Nein 

keinen neuen Track anfangen 

00055 

00056 

A037 

OE 41 

RDXCHG 

LD 

C, &41 

5 Zeiger auf Sektor i ... 

00057 

A039 

14 


INC 

D 

; ... des naechsten Tracks 

00058 







00059 

A03A 

24 

RDCONT 

INC 

H 

; Bufferzeiger um 

00060 

A03B 

24 


INC 

H 

; (2*256 Bytes) erhoehen 

00061 

A03C 

10 FO 


DJNZ 

RDLOOP 


00082 



; Weiterraachen, bis alle 

Sektoren gelesen 
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00063 

A03E 

C9 




RET 


• 

1 

Ruecksprung nach Basic 

00064 










00065 





; ##### 

45 Sektoren schreiben 

««*««**««**««» 

00066 










00067 

A03F 

iE 

00 


.URITE 

LD 

E, 0 

* 

1 

Laufwerk A s 0 

00068 

A041 

06 

2D 



LD 

B, 45 

■ 

r 

45 Sektoren schreiben 

00069 

A043 

OE 

41 



LD 

C, &41 

* 

r 

Sektornummer 

00070 

A045 

16 

00 



LD 

D, 0 

* 

t 

Tracknummer 

00071 

A047 

21 

68 

42 


LD 

HL,17000 

• 

i 

Startadr. Sektorpuffer 

00072 










00073 

A04A 

DF 



WTLOOP 

RST 

&18 



00074 





$ RSX-Routlne 

WRITE SECTOR 

auf rufen 

00075 

A04B 

05 

AO 



DEFW 

WTJMP 

9 

9 

Zeiger auf Sprungvektor 

00076 










00077 

A04D 

79 



WTNEXT 

LD 

A,C 

9 

9 

Sektornummer in den Akku 

00078 

A04E 

OC 




INC 

C 

9 

9 

Zeiger auf n. Sektor 

00079 

A04F 

FE 

49 



CP 

&49 

• 

9 

War letzter Sektor #9? 

00080 

A051 

38 

03 



JR 

C,WRCONT 



00081 





; Nein,keinen 

neuen Track anfangen 

00082 










00083 

A053 

OE 

41 


WTXCHG 

LD 

C, &41 

• 

t 

Zeiger auf Sektor 1 ... 

00.084 

A055 

14 




INC 

D 

• 

.. . des naechsten Tracks 

00085 










00086 

A056 

24 



WRCONT 

INC 

H 



00087 





i Bufferzeiger um 512 Bytes 

erhoehen 

00088 

A057 

24 




INC 

H 

• 

I 

(2#256 Bytes) 

00089 

A058 

10 

FO 



DJNZ 

WTLOOP 



00090 





; Weitermachen, bis alle Sektoren geschrieben 

00091 

A05A 

C9 




RET 


• 

f 

Ruecksprung nach Basic 

00092 

A05B 

( A05B) 



END 


i 

*K*K**«Mtt«*««*««»*»«««»« 
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Errors 

s 00000 Warnings: 

00000 





SYMBOL TABLE: 








A000 CMD84 



A001 

CMD85 


BCD4 .FINDCM 


A008 INIT 

A0Q2 RDJMP 



A004 

RDROM 


A023 READ 


A02E RDLOOP 

A031 RDNEXT 



A037 

RDXCHG 


A03A RDCONT 


A005 WTJMP 

A007 WTROM 



A03F 

WRITE 


A04A WTLOOP 


A04D WTNEXT M 

A053 WTXCHG 



A056 

WRCONT 




■ 


Listing: DISC to TAPE (Ein BACKUP-PROGRAMM) 


100 ’ ******************************* 
110 ' * Disc-BACKUP auf Cassetten * 
120 ' ******************************* 
130 ' 
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140 SYMBOL AFTER 250:MEMORY 16999 
150 FOR i=40960 TO 41050:READ a :POKE i,a:NEXT i 
160 SYMBOL 254,1,66, i/0, &66,t/66, t/66, t/66, &3E, t/0 
170 SYMBOL 255, t/66, t/0, t/3C, t/66, &66, t/66, &3C, t/0 

180 f Maschinencode-Daten: 45 Disc-Sektoren laden und speichern ******** 

190 DA TA t/84, t/85, t/00, t/00, t/00, &00, t/00, t/00, t/21, t/00, &A0, t/CD, t/D4, t/BC, 8*22, t/02 
200 DA TA &A0, i/79, t/32, t/04, t/A0, t/21, t/01, &A0, t/CD, t/D4, t/BC, t/22, t/05, t/A0, t/79, t/32 
210 DA TA t/07, t/A0, t/C9, t/1 E, t/00, t/06, &2D, t/0E, t/41,t/l 6, t/00, t/21, t/68, t/42, t/DF, t/02 
220 DA TA &A0, t/79, &0C, t/FE, t/49, t/38, t/03, &0E, t/41, t/14, t/24, t/24, t/10, t/F0, t/C9, t/IE 
230 DA TA t/00, t/06, t/2D, t/0E, t/41, t/16, t/00, t/21, t/68, t/42, t/DF, t/05, t/A0, t/79, t/0C, t/FE 
240 DA TA t/49, t/38, t/03, t/0E, t/41, t/14, t/24, t/24, t/10, &F0, t/C9 

250 ' Titelbild und Anleitung ****************************************** 

260 MODE 1: INK 0,13: INK 1,0: INK 2,0,3: INK 3,1 
270 PAPER 0:PEN 3:B0RDER 10:SPEED INK 30,20 
280 LOCATE 1,1: PR INT STR1NG$(40,210) 1 
290 LOCATE 1,2 » 

300 PRINT CHR$(24) +SPACEt (8) + "DISC-BACKUP AUF CASSETTE "+SPACE $ (8) +CHR$(24 ) 
310 LOCATE 10,5:PR1NT CHRt(164)i n Martin Kotulla 1985” 

320 PR1NT:PR1NT STRING$(40,210) : PR INT 

330 PEN 1:PR INT " Mit diesem Programm k"+CHR*(255) + n nnen Sie" 

340 PRINT:PR1NT " komplette Disketten auf C60-Cassetten n 
350 PR INT: PR INT " abspeichern. " 

360 VHILE INKEY$<>" n :VEND ' Tastaturpuffer loeschen 

370 PEN 2:PR INT:PR INT:PRINT ” Bitte legen Sie die Diskette ins” 

380 PR1NT:PRINT n Laufwerk und dr”+CHR$(254)+ H cken Sie eine Taste!" 

390 VHILE INKEY$=VEND ' Auf Tastendruck warten 

400 ' Interface zu den Maschinenspracheteilen ***************************** 

410 init=t/A008 ' Initialisierungsroutine 

420 readb=t/A023 ' 45 Sektoren von der Diskette lesen 

430 writeb=t/A03F * 45 Sektoren auf Diskette schreiben 

440 ' Diskettentyp initialisieren ***************************************** 
450 CALL init 
460 IDISC 

470 OPENOUT "DUMMY.$$$”:CLOSEOUT ' FDC-Parameter aktualisieren 

480 fdcb 1 ock=PEEK(1/BE42) +PEEK(&BE43)*256 ' Zeiger auf FDC-Datenb 1 ock 

490 format=PEEK(fdcblock+t/F)-l ' Formatierungstyp feststellen 

500 POKE &A028, format+1:POKE &A044,formst*1 

510 POKE &A034, format*9:POKE &A050, formst*9 

520 POKE t/A038, formst* 1:POKE &A054, formst* 1 

530 f Menueauswahl ****************************************************** 
540 MODE 1 :PEN 3:PRINT:PR1NT " Geben Sie bitte folgende Daten an:" 

550 PEN 1 :PRINT:PRINT STRI NG$ ( 40,210) : PR INT: PEN 3 

560 PEN 2:PRINT "111 ";:PEN l:PRINT " Diskette abspeichern" 

570 PRINT 

580 PEN 2: PR INT " I2J "f.’PEN l:PRINT " Cassette einiesen" 

590 PRINT 

600 a$=INKEY$:IF a$="" THEN 600 
610 IF a$="l" THEN 650 
620 IF a*="2" THEN 940 
630 PRINT CHR$ (7) f:GOTO 600 

640 r Diskette auf Cassette transferieren ******************************* 
650 PRINT " Cassettenmeldüngen anzeigen? "i 
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660 a*=UPPER$(INKEYS):IF a$= nn THEN 660 
670 IF a*= H J" OR a*="Y” THEN cas*=”" '.GOTO 700 
680 IF a*="N" THEN cas*= n !”:GOTO 700 
690 PRINT CHR$(7) CGOTO 660 
700 PRINT UPPER*(a$) 

710 PEN l:PRINT:PRINT STR ING* (40,210): PR INT 

720 PEN 2 i PR INT * 10 J "/ :PEN 1: PR INT ” SPEED URITE 0" 

730 PRINT 

740 PEN 2: PR INT * I1J "/: PEN 1:PRINT " SPEED URITE 1” 

750 PRINT 

760 a*=INKEY*:IF a*= nn THEN 760 

770 IF a*= n 0 n THEN SPEED URITE 0:GOTO 800 

780 IF a*="l" THEN SPEED URITE HGOTO 800 

790 PRINT CHR*(7);:G0T0 760 

800 PRINT STRING* (40,210) 

810 PEN 3: UINDOU 2,39,22,24 
820 track=0 
830 FOR i=1 TO 8 

840 POKE &A02A, track:POKE &A046, track:track s track+5 
850 IF cas*= H " THEN 870 

860 PRINT US ING n Reading _ Track ## - tt";track-5; track 

870 CALL readb 

880 FOR j=l TO 55001NEXT j ' Harten, bis Floppyootor aus ist! 

890 IF cas*=”! n THEN PRINT " Uriting _" 

900 l TAPE:SA VE cas*+ H CBACKUP DISC n +STR*(i ), b, 17000,23040 
910 NEXT i 

920 GOTO 1120 * Programmende 

930 ' Cassette auf Diskette transferieren ******************************* 
940 PRINT " Cassettenmeldüngen anzeigen? n ; 

950 a$=UPPER$(INKEY*):IF a$=”" THEN 950 
960 IF a$= n J n OR a*- n Y H THEN cas*- Hn :GOTO 990 
970 IF a$-"N n THEN cas*= n !".‘GOTO 990 
980 PRINT CHR* ( 7) / .*GOTO 950 

990 PRINT UPPER*(a$) :PRINT:PRINT STRING*(40,210) 

1000 PEN 3: UINDOU 2,39,15,24 
1010 track=0 
1020 FOR i=1 TO 8 

1030 POKE &A02A, track:POKE &A046, track:track=track+5 

1040 IF cas*= n !" THEN PRINT " Reading _" 

1050 lTAPE:LOAD cas*+ n CBACKUP DISC H +STR*(i) 

1060 IF cas*=* n THEN 1080 

1070 PRINT USING " Uriting _ Track ## - **";track-5;track 

1080 CALL writeb 

1090 FOR j=l TO 5500:NEXT j ' Harten, bis der Floppymotor aus ist! 

1100 NEXT i 

1110 ’ Programmende ***************************************************** 
1120 CLS:PRINT n Fertig - Die Daten sind n +CHR$(254)+"bertragen!” 

1130 PRINT:PR1NT "Noch eine Diskette laden/speichern?" 

1140 a$=UPPER$(INKEY$):IF a$= nn THEN 1140 
1150 IF a$-"N n THEN MODE l:PEN 1 :END 
1160 IF a$=”J” THEN CLEAR:MODE l:GOTO 260 
1170 PRINT CHR* ( 7) ;:GOTO 1140 
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„Memory Check“ - 
Prüfen Sie Ihren 
Computer! 


Eigentlich sollte es ja nicht Vorkom¬ 
men, aber kein Computer ist vor 
Defekten sicher . Besonders ärger¬ 
lich ist das, wenn ein Speicherchip 
nicht mehr richtig funktioniert und 
aus scheinbar unerklärlichen 
Gründen Programme, die vorher 
noch einwandfrei liefen, dauernd 
„aussteigen ” Mit dem Maschinen¬ 
programm , t MEMORY CHECK” 
können Sie sich Gewißheit über 
den Zustand Ihres Computers ver¬ 
schaffen , 

Das Programm läuft auf allen drei 
Schneider-Computern . 


MEMORY CHECK ist vollständig in 
Maschinensprache geschrieben. Das 
bedeutet, daß Sie entweder den 
Quellcode abtippen und assemblie« 
ren oder den Basic-Loader eingeben 
können. Entscheiden Sie sich für 
den Quellcode, dann müssen Sie 
zum Starten des Programms CALL 
&A2A1 eingeben; der Basic-Loader 
macht dies automatisch und sucht 
außerdem geeignete Bildschirmfar¬ 
ben heraus. 

Das Programm meldet sich mit ME¬ 
MORY CHECK VI.0 und zeigt in der 
Bildschirmmitte laufend die geprüf¬ 
ten Speicheradressen in Hexadezi- 
mal-Schreibweise an. Um die Verar¬ 
beitungsgeschwindigkeit zu erhö¬ 
hen, erfolgt die Anzeige nur an Pa¬ 
ge-Grenzen, also nach jeweils 256 
Bytes. Ist Ihr Computer fehlerfrei, 
erscheint nach kurzer Zeit Speicher 
von &'0040—&A000 Ok. In einem 
zweiten Durchgang wird dann der 
Bildschirm-RAM von &C000 bis 
&FFFF untersucht. Auch hier er¬ 
folgt bei einwandfreien Testergeb¬ 


nissen eine entsprechende Bild¬ 
schirmausgabe: Speicher von 

& J C000-&FFFF Ok - Bitte druecken 
Sie eine Taste! Nach dem Tasten¬ 
druck wird ein Reset ausgelöst, da 
eine Rückkehr nach Basic wegen 
der völlig veränderten Speicherin¬ 
halte kaum noch möglich ist. 

Sollten Sie zu den Pechvögeln mit 
defektem Computer gehören, er¬ 
scheint bei nicht funktionierenden 
Speicherstellen die Fehlermeldung 
Adreß/ehler und die defekte Adres¬ 
se wird ausgegeben. Nach einem Ta¬ 
stendruck wird auch hier ein Reset 
ausgelöst. In einem solchen Fall 
bleibt Ihnen nichts anderes übrig, 
als den Computer reparieren zu 
lassen. 

Es ist aber dringend zu empfehlen, 
das Programm schon vor dem Auf¬ 
treten solcher Fehler abzutippen 
und zu speichern - wenn die Fehler 
auftauchen, kann es zur Programm¬ 
eingabe schon zu spät sein! 

Für Interessierte hier noch einige 
Angaben zur Funktionsweise des 
Programms: MEMORY CHECK setzt 
in einer Programmschleife zuerst je¬ 
de Speicherstelle auf Null und liest 
den Inhalt der Speicherstelle wie¬ 
der. Erkennt das Programm einen 
anderen Wert als Null, so erfolgt 
eine Fehlermeldung. In einem zwei¬ 
ten Test werden daraufhin alle Bits 
der Speicherstelle auf Eins gesetzt, 
MEMORY CHECK lädt also den 
Wert 255 in die Speicherstelle. 
Wird beim erneuten Lesen ein ande¬ 
rer Wert festgestellt, so erfolgt die 
Fehlermeldung. 

Ziemlich schwierig war die Wahl 
der Speicherbereiche: Der Bereich 
von &0000 bis &0040 ist für Verän¬ 


derungen tabu, da dort die Restart- 
Vektoren stehen, die von allen 
ROM-Routinen verwendet werden. 
So würde z. B. die Bildschirmausga¬ 
be zum Systemabsturz führen. 
Ebenso verbietet sich die Verände¬ 
rung des System-RAMs, da hier 
wichtige Daten für den Computer 
stehen, insbesondere die Sprungta¬ 
belle, ohne die keine ROM-Routi¬ 
nen mehr verwendet werden kön¬ 
nen. Auch befindet sich im Adreß- 
bereich unter 49152 der System¬ 
stack des Z80-Prozessors. Diesen 
z. B. in einem Unterprogramm zu 
verändern, führt beim RET-Rück- 
sprung in den allermeisten Fällen 
zum System-Crash. Deshalb be¬ 
schränkt sich MEMORY CHECK 
darauf, den Bereich &0040 bis 
&A200 zu untersuchen. Hier kön¬ 
nen alle Speicherinhalte verändert 
werden, wenn man mit dem Z80- 
Maschinenbefehl DI alle Interrupts 
des Computers verbietet und auf ei¬ 
ne Rückkehr nach Basic verzichtet. 
In einer zweiten Schleife untersucht 
das Programm nach obig beschrie¬ 
benem Verfahren den RAM-Spei¬ 
cher von &C000 bis &FFFF. Da dort 
aber normalerweise der Bildschirm¬ 
speicher liegt, wäre es nicht gerade 
ästhetisch, die Tests vor den Augen 
des Programmbenutzers durchzu¬ 
führen. Schwerer wirkt aber das 
Problem, daß keine Bildschirmaus¬ 
gaben möglich wären. So kopiert 
MEMORY CHECK ganz einfach den 
gesamten Bildschirmspeicher mit 
LDIR in den Bereich von &4000 bis 
&7FFF und schaltet dann auf diesen 
Alternativbildschirm um. Der Be¬ 
nutzer merkt davon natürlich über¬ 
haupt nichts. Martin Kotulla/LM 
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L. i < 


t i n g 

: MEMORY-CHECK 



1000 

t 

; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1010 

t 

; # 




X 

1020 

i 

; # 


MEMORY CHECK - 

prueft den RAM-Speicher x 

1030 

t 

; # 




X 

1040 

f 

/ xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1050 

t 






1060 

r 


ORG 

&A200 


! Startadresse des Programms 

1070 

r 






1080 

t 

VAITKY EQU 

&BB18 


! KM UAIT KEY wartet auf Tastendruck 

1090 

9 

OUTPUT EQU 

&BB5A 


; TXT OUTPUT druckt Zeichen auf dem Screen 

1100 

9 

SETBAS 

EQU 

&BC08 


i SCR SET BASE verschiebt den Bildschirm 

1110 

t 






1120 

9 

TEXT1 

DEFB 

4,1,10,32,24,32,32 

32, 32, 32, 32, 77, 69 

1130 

9 


DEFB 

77, 79, 82, 89, 32, 

67, 

72, 69, 67, 75, 32 

1140 

f 


DEFB 

86, 49, 46, 48, 32, 

32, 

32, 32, 32, 32,24 

1150 

t 


DEFB 

13,10,0 



1160 

9 






1170 

t 

TEXT2 

DEFB 

31,2,20, 83,112, 

101 

, 105,99,104,101,114,32 

1180 

1 


DEFB 

118,111,110,32, 

38, 

48, 48, 52, 48, 45 

1190 

9 


DEFB 

38, 65, 48, 4&, 48, 

32, 

79,107,10,13,0 

1200 

r 






1210 

9 

TEXT3 

DEFB 

31,2,22,83,112, 

101 

, 105, 99,104,101,114,32 

1220 

9 


DEFB 

118,111,110,32, 

38, 

67, 48, 48, 48, 45 

1230 

9 


DEFB 

38, 70, 70, 70, 70, 

32, 

79,107,13,10,10 

1240 

r 






1250 

t 

TEXT4 

DEFB 

32, 66,105,116,116, 

101,32,101,105,110 

1260 

t 


DEFB 

101, 32, 84, 97,115,116, 101,32,100 

1270 

t 


DEFB 

114,117,101,99, 

107,101,110, 33,0 

1280 

* 






1290 

t 

ERRMSG 

DEFB 

10,13,10,32, 65, 

100,114,101,115,115,102 

1300 

r 


DEFB 

101,104,108,101 

,114,32,105,110,32,0 

1310 

r 






1320 

r 

CRLF 

DEFB 

13,10,10,0 


; Wagenruecklauf und zweimal Line-Feed 

1330 

f 






1340 

r 

CURSET 

DEFB 

31,18,10,0 


f Steuerzeichen fuer LOCATE 18,10 

1350 

t 






1360 

r 

START 

LD 

HL, TEXT1 


; Zeiger auf Text 1 

1370 

p 


CALL 

PRINT 


; "MEMORY CHECK VI.0" ausgeben 

1380 

f 


Dl 



p Interrupts unterdruecken 

1390 

r 






1400 

f 

CHECK1 

LD 

HL, &0040 


: Ende des RST-Bereichs 

1410 

p 


LD 

DE, TEXT1 


/ Zeiger auf Anfang des Programms 

1420 

t 


CALL 

CHKMEM 


; Speicher zwischen (HL) und (DE) pruefen 

1430 

r 


LD 

HL, TEXT2 


; Zeiger auf Text 2 

1440 

i 


CALL 

PRINT 


; n Speicher von &0040-&A000 Ok" ausgeben 

1450 

9 






1460 

t 

SCHO VE 

LD 

HL,&C000 


I Zeiger auf Original-Bildschirmanfang 

1470 

9 


LD 

DE, &t4000 


) Zeiger auf zweiten Bildschirmspeicher 

1480 

1 


LD 

BC, &4000 


I Der Bildschirm besteht aus 16KByte 

1490 

f 


LDIR 



l Bildschirm umkopieren 

1500 

9 


LD 

A,&40 


; Highbyte der neuen Startadresse 

1510 

9 


CALL 

SETBAS 


1 Neue Bildschirmbasis setzen 
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2520 ' 




1530 ' CHECK2 

LZ) WL, ÄC000 

; Zeiger auf Anfang des Pruefbereichs 


1540 • 

LZ) Z)£, i/FFFA 

; Zeiger auf Ende des Pruefbereichs 


1550 ' 

CALL CHKMEM 

; Speicher zwischen (HL) und (DE) pruefen 


1560 ' 

LD HL, TEXT3 

; Denn Ok, dann Zeiger auf Text 3 


1570 ' 

CALL PRINT 

; "Speicher von &C000-&FFFF 0k n ausgeben 


1580 • 

CALL WAITKY 

; Auf Tastendruck warten 


1590 ' 

RST &00 

; Reset ausfuehren 


1600 ' 




1610 • 1 CHKMEM prueft den Speicher von (HL) bis (DE) #*#*##**###*##«#####***#* 


1620 ' 




1630 ' CHKMEM 

SUB A 

; Akku loeschen 


1640 ’ 

LD (HL),A 

; In (HL) alle Bits zuruecksetzen 


1650 ' 

LD A,(HL) 

; Adresse wieder in den Akku einiesen 


1660 ' 

CP 0 

; Mit Null vergleichen 


1670 ' 

JR NZ, ERROR 

; Wenn nicht Null , dann Fehlermeldung 


1680 ' 




1690 ' 

LD A,&FF 

; Akku auf logisch Eins 


1700 ' 

LD (HL),A 

; In (HL) alle Bits setzen 


1710 ' 

LD A,(HL) 

; Adresse wieder in den Akku ei niesen 


2 720 ' 

CP &FF 

/ Mit StFF vergleichen 


2 730 ' 

JR NZ, ERROR 

; ft/enn nicht StFF, dann Fehlermeldung 


2 74# ' 




1750 ' SHOU? 

LD A,L 

; CP-Befehl vorbereiten 


1760 ' 

CP 0 

; Ist eine Page-Grenze erreicht? 


1770 ' 

JR NZ, NEXT 

; Nein - weiterhin pruefen 


1780 ’ 




1790 ' HEXADR 

PUSH HL 

; HL-Register sichern 


1800 • 

LD HL, CURSET 

; Zeiger auf LOCATE-String 


1810 ' 

CALL PRINT 

; Cursor positionieren 


1820 ' 

POP HL 

; HL-Register wiederherstellen 


1830 • 

PUSH HL 

; Und wiederum sichern 


1840 ' 

CALL HEXOUT 

; Adresse als Hexziffer ausgeben 


1850 ’ 

POP HL 

; HL-Register wiederherstellen 


1860 ' 




1870 ' NEXT 

INC HL 

; Adresszeiger erhoehen 


1880 ' 

CALL CPHLDE 

; CP HL, DE: Speicherende erreicht? 


1890 ' 

JR NZ, CHKMEM 

; Nein - Speicher weiterhin pruefen 


1900 ' 

RET 

; Ruecksprung zum aufrufenden Programm 


1910 • 




1920 ' ERROR 

LD A, 7 

; Fehler: BEEP-Code laden 


1930 ’ 

CALL OUTPUT 

; Und ausgeben 


294^ ' 

DI 

; Interrupts wieder unterdruecken 


2950 * 

PUSH HL 

; HL-Register sichern 


1960 ' 

LD HL,ERRMSG 

; Zeiger auf n Adressfehler in " 


2970 ' 

CALL PRINT 

; Diesen String ausgeben 


1980 ' 

POP HL 

; HL-Register wiederherstellen 


2990 ' 

CALL HEXOUT 

; Adresse als Hexziffern ausgeben 


2000 1 

LD HL,CRLF 

; Zeiger auf CR/LF/LF-String 


2020 f 

CALL PRINT 

; Ausgeben 


2020 ' 

LD HL, TEXT4 

; Zeiger auf n Bitte Taste druecken! n 


2030 ' 

CALL PRINT 

; Ausgeben 


2040 ' 

CALL UAITKY 

; Auf Tastendruck warten 


2050 ' 

RST &00 

; Reset ausfuehren 


2060 ' 

POP HL 

; HL-Register wiederherstellen 
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2070 

t 


RET 


; Ruecksprung 

2080 

f 





2090 

t 

/ CPHLDE simuliert 

CP HL,DE *#**#x*#####***#******####*##x##**######**#* 

2100 

t 





2110 

t 

CPHLDE 

LD 

A, H 


2120 

t 


XOR 

D 


2130 

t 


LD 

A,H 


2140 

t 


JP 

P, CPPLUS 

2150 

t 


ADD 

A,A 


2160 

t 





2170 

t 

CPSUB 

SBC 

A,A 


2180 

t 


RET 

C 


2190 

t 


INC 

A 


2200 

t 


RET 



2210 

t 





2220 

r 

CPPLUS 

CP 

D 


2230 

t 


JR 

NZ, CPSUB 

2240 

t 


LD 

A, L 


2250 

t 


SUB 

E 


2260 

t 


JR 

NZ, CPSUB 

2270 

t 


RET 



2280 

t 





2290 

t 

/ PRINT druckt von 

(HL) bis - (HL)=0 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

2300 

t 





2310 

t 

PRINT 

PUSH 

AF 

; Akku und Flags retten 

2320 

r 





2330 

r 

PTLOOP 

LD 

A, (HL) 

/ Akku mit ASCII-Zeichen laden 

2340 

f 


CP 

0 

; Mit Null vergleichen 

2350 

r 


JR 

Z, PTRETN ; Bei Null: Stringende 

2360 

r 


CALL 

OUTPUT 

; Sonst auf dem Bildschirm ausgeben 

2370 

t 


Dl 


; Interrupts wieder unterdruecken 

2380 

t 


INC 

HL 

; Adresszeiger erhoehen 

2390 

t 


JR 

PTLOOP 

; Und Ruecksprung in die Schleife 

2400 

t 





2410 

r 

PTRETN 

POP 

AF 

; Akku und Flags wiederherstellen 

2420 

r 


RET 


; Ruecksprung zum aufrufenden Programm 

2430 

t 





2440 

t 

HEXOUT 

LD 

A, 91 

; Ascii-Code fuer "[" 

2450 

t 


CALL 

OUTPUT 

; Aus geben 

2460 

t 


DI 


1 Interrupts verbieten 

2470 

t 


LD 

A,H 

I Akku mit dem H-Register laden 

2480 

t 


CALL 

SHIFT 

I Shiften und als Hexziffer ausgeben 

2490 

t 


LD 

A,H 

1 Akku mit dem H-Register laden 

2500 

t 


CALL 

PRT 

; Als Hexziffer ausgeben 

2510 

t 


LD 

A,L 

I Akku mit dem L-Register laden 

2520 

f 


CALL 

SHIFT 

; Shiften und als Hexziffer ausgeben 

2530 

r 


LD 

A,L 

l Akku mit dem L-Register laden 

2540 

f 


CALL 

PRT 

1 Als Hexziffer ausgeben 

2550 

r 


LD 

A, 93 

1 Ascii-Code fuer n J n 

2560 

t 


CALL 

OUTPUT 

1 Ausgeben 

2570 

f 


DI 


I Interrupts verbieten 

2580 

t 


RET 


1 Ruecksprung zum aufrufenden Programm 

2590 

t 





2600 

f 

SHIFT 

RRA 


I Viermal je ein Bit aus dem rechten 

2610 

r 


RRA 


; Nibble des Akkus herausshiften, so 
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2620 

t 


RRA 


• 

ß 

dass nur noch das linke Nibble uebrig- 

2630 

t 


RRA 


ß 

bleibt 

2640 

t 






2650 

t 

PRT 

AND 

&0F 

9 

ß 

Linkes Nibble des Akkus ausblenden 

2660 

f 


ADD 

A, 48 

f 

ASCI1-Offset addieren 

2670 

r 


CP 

58 

i 

Groesser als *9"? 

2680 

r 


JR 

C, SHOW 

• 

f 

Wenn nicht, direkt ausgeben 

2690 

r 


ADD 

A, 7 

! 

Sonst Differenz zwischen "9" und "A" 

2700 

f 






2710 

f 

SHOW 

CALL 

OUTPUT 

i 

Ausgeben 

2720 

i 


RET 


ß 

Ruecksprung zum aufrufenden Programm 

2730 

t 





■ 

2740 

r 


END 


ß 

************************************ ™ 


Listing: MEMORY-CHECK 

100 • ******************************** 

110 * * * 

120 ' * MEMORY CHECK * 

130 ' * * 

140 • ******************************** 

150 • 

160 MEMORY 41471 

170 FOR i =41472 TO 41845 

180 READ atPDKE i,a:NEXT i 

190 INK 1,0: INK 0,13:BORDER 10 

200 PEN l:PAPER 0:SPEED INK 30,20 

210 CALL &A2A1 ' MEMORY CHECK aufrufen 

220 DA TA &04, &01, &0A, &20, &18, &20, &20,&20, &20, &20, &20, &4D,&45,&4D,&4F, &52 
230 DA TA &59, &20, &43, &48, &45, &43, &4B, &20, &56, &31, &2E, &30, &20, &20, &20, &20 
240 DATA &20, &20, &18, &0D, &0A, &00, &1F, &02, &14, &53,&70, &65, &69, &63, &68, &65 
250 DA TA & 72, &20, & 76, &6F, &6E, &20, &26, &30, &30, &34, &30, &2D, &26, &41, &30, &30 
260 DATA &30, &20, &4F, &6B, &0A, &0D, &00, &1F, &02, &16, &53, &70, &65, &69, &63, &68 
270 DA TA &65, & 72, &20, & 76, &6F, &6E, &20, &26, &43, &30, &30, &30, &2D, &26, &46, &46 
280 DA TA &46, &46, &20, &4F, &6B, &0D, &0A, &0A, &20, &42, &69, &74, &74, &65, &20, &65 
290 DA TA &69, &6E, &65, &20, &54, &61,&73, &74, &65, &20, &64,&72,&75, &65, &63, &6B 
300 DA TA &65, &6E, &21, &00, &0A, &0D, &0A, &20, &41, &64,&72, &65, &73,&73, &66, &65 
310 DATA &68, &6C, &65,&72, &20, &69, &6E, &20, &00, &0D, &0A, &0A, &00, &1F, &12, &0A 
320 DA TA &00, &21, &00, &A2, &CD, &38, &A3, &F3, &21, &40, &00, &11, &00, &A2, &CD, &DA 
330 DA TA &A2, &21, &26, &A2, &CD, &38, &A3, &21, &00, &C0, &11, &00, &40, &01, &00, &40 
340 DA TA &ED, &B0, &3E, &40, &CD, &08, &BC, &21, &00, &C0, &11, &FA, &FF, &CD, &DA, &A2 
350 DA TA &21, &4 7, &A2, &CD, &38, &A3, &CD, &18, &BB, &C7, &97, &77,&7E, &FE, &00, &20 
360 DATA &21, &3E, &FF,&77, &7E, &FE, &FF, &20, &19,&7D, &FE, &00, &20, &0D, &E5, &21 
370 DA TA &9D, &A2, &CD, &38, &A3, &E1, &E5, &CD, &47, &A3, &E1, &23, &CD, &25, &A3, &20 
380 DA TA &D9, &C9, &3E, &07, &CD, &5A, &BB, &F3, &E5, &21, &84, &A2, &CD, &38, &A3, &E1 
390 DA TA &CD, &4 7, &A3, &21, &99, &A2, &CD, &38, &A3, &21, &68, &A2, &CD, &38, &A3, &CD 
400 DA TA &18, &BB, &C7, &E1, &C9, &7C,&AA,& 7C, &F2, &30, &A3, &87, &9F, &D8, &3C, &C9 
410 DATA &BA, &20, &F9, &7D, &93, &20, &F5, &C9, &F5, &7E, &FE, &00, &28, &07, &CD, &5A 
420 DA TA &BB, &F3, &23, &18, &F4, &F1, &C9, &3E, &5B, &CD, &5A, &BB, &F3, &7C, &CD, &64 
430 DATA &A3,&7C, &CD, &68, &A3,&7D, &CD, &64, &A3,&7D, &CD, &68, &A3, &3E, &5D, &CD 
440 DATA &5A, &BB, &F3, &C9, &1F, &1F, &1F, &1F, &E6, &0F, &C6, &30, &FE, &3A, &38, &02 
450 DATA &C6, &07, &CD, &5A, &BB, &C9 

460 END ' ************************************************************** 
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Anzeige 

der Funktionstasten 


Auf den Schneider-Computern las¬ 
sen sich mit dem KEY-Befehl die 
Funktionstasten sehr einfach bele¬ 
gen . Leider ist es dann nicht mehr 
möglich, die Belegimg der Tasten 
anzeigen zu lassem Das Programm 
„KEYLIST 9 schafft da Abhilfe . 


Das Programm initialisiert einen 
RSX-Befehl, mit dem der Sprach- 
umfang des Basic-Interpreters er¬ 
weitert wird: 

| KEYLIST 

Nach Eingabe dieses Befehls wer¬ 
den die ersten 25 Funktionstasten 
angezeigt, und zwar im gleichen 
Format wie bei der Eingabe des 
KEY-Befehls: 

KEY &80,“0” 

KEY &81,“1” 

KEY &82,“Dies ist Funktions¬ 
taste 3” 
usw. 

Dieses Format hat den Vorteil, daß 
Sie durch Benutzung der COPY-Ta- 
ste alte Tastenbelegungen überneh¬ 
men und dabei modifizieren 
können. 


Wenn der Bildschirm vollgeschrie¬ 
ben ist, hält das Programm an und 
wartet auf einen Tastendruck von 
Ihnen. Nach diesem werden die üb¬ 
rigen Tastenbelegungen angezeigt. 
Einige Worte zur Funktionsweise 
des Programms: KEYLIST liest beim 
CPC-464 aus der Speicherstelle 
&B4E1 (beim CPC-664 und CPC- 
6128 ist dies die Adresse &B62B) 
einen Zeiger auf den Beginn der Be¬ 
legungstabelle der Funktionstasten. 
Beim CPC-464 ergibt dies normaler¬ 
weise die Startadresse 46150. In der 
darauffolgenden Schleife werden 
für jede Taste zuerst der Text 
„KEX die Tastennummer, ein 
Komma und ein Anführungszei¬ 
chen ausgegeben. In einer weiteren 
Schleife liest KEYLIST dann die 
Stringketten aus dem Speicher und 
zeigt sie am Bildschirm an. Sollte 
die Taste nicht belegt sein und so¬ 
mit der Funktionsstring die Länge 
Null haben, gibt KEYLIST einen 
Leerstring aus. Sobald der ASCII- 
Code 159 erreicht wird - das ist die 
höchste belegbare Funktionstaste -, 
kehrt das Programm wieder nach 
Basic zurück. 

Der Basic-Loader ist übrigens so 
programmiert, daß er mit einer klei¬ 
nen Maschinenroutine automatisch 


den verwendeten Computer er¬ 
kennt. Dies geht ganz einfach: 

CALL KL U ROM ENABLE 
(Basic-ROM einschalten) 

LD A,(&C002) 

(Modifikationbyte im Basic- 
ROM lesen) 

LD (&016D),A 

(Im PEEKbaren Speicher 

unterbringen) 

RET 

(Rücksprung nach Basic) 

Durch Version=PEEK(M)16D) kann 
der CüinpuLerLyp festgestellt 
werden: 

Version=0: CPC-464 
Versio n=l; CPC-664 
Version=2: CPC-6128 
Andere Werte: bisher nicht 
verwendet 

Bei Version=l und Version=2 muß 
im Maschinenprogramm eine 
Adresse geändert werden, nämlich 
&B4E1 in &B62B. Im Bedarfsfall 
wird dies vom Programm automa¬ 
tisch erledigt. Erkennt das Pro¬ 
gramm einen Wert größer als 2, so 
gibt es eine entsprechende Fehler¬ 
meldung aus. Martin Kotulla/LM 


L i s -t i n g : KEYLIST 


1000 f ; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
1010 ' ; x x 

1020 * ; x KEYLIST - RSX-Erweiterung zur Anzeige der Funktionstasten-Belegung x 
1030 f ; x x 

1040 * 9 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
1050 f 

1060 r ORG &A000 ; Der Basic-Loader ist relokalisierbar! 

1070 ' 

1080 r BUFFST EQU &B4E1 / Start Expbuffer, CPC-664/6128: &B62B 
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1090 ' WAITKY EQU StBBlß 

; KH WA IT KEY - wartet auf Tastendruck 

1100 ' OUTPUT EQU &BB5A 

; TXT OUTPUT - Zeichen auf Bildschirm ausgeben 

1110 • WRCHAR EQU &BB5D 

; TXT WR CHAR - druckt auch Control-Codes 

1120 • LOGEXT EQU &BCD1 

; KL LOG EXTERNAL - RSX-Routinen einbinden 

1130 • 



1140 ' RSXTAB 

DEFU NAHTAB 

; Zeiger auf Namenstabeile 

1150 • 

JP KYLIST 

; Sprungvektor auf die Routine 

1160 • 



1170 ’ NAHTAB 

DEFH "KEYLIS" 

; RSX-Name KEYLIST 

1180 f 

DEFB &D4,&00 

; Ende des Namens & Ende der Tabelle 

1190 • 



1200 ' SPACE 

DEFS &04 

; Hilfsspeicher fuers Betriebssystem 

1210 ' 



1220 ' 1N1T 

LD BC, RSXTAB 

; Zeiger auf RSX-Tabel1e 

1230 ' 

LD HL,SPACE 

; Zeiger auf Hilfsspeicher 

1240 ’ 

CALL LOGEXT 

l RSX-Routine einbinden 

1250 • 

RET 

; Ruecksprung nach Basic 

1260 ' 



1270 ' TEXT 

DEFB 13 


1260 ' 

DEFH "KEY" 


1290 ' 

DEFB 32,38 


1300 • 



1310 ' KYL1ST LD HL, (BUFFST) 

; Zeiger auf Beginn der Funktionszeichen 

1320 ' 

LD C, 128 

; Code der ersten Funktionstaste 

1330 ' 

LD A,12 

; Code fuer CLEAR SCREEN 

1340 • 

CALL OUTPUT 

; Bildschirm loeschen 

1350 • 



1360 • PRINT 

PUSH BC 

; BC-Register sichern 

1370 ' 

PUSH HL 

; HL-Register sichern 

1380 ’ 

LD B, 6 

; 6 Zeichen ausgeben 

1390 ' 

LD HL,TEXT 

; Zeiger auf String n KEY & n 

1400 • 



1410 ' PLOOP 

LD A,(HL) 

; Ein Zeichen des Strings lesen 

1420 ' 

CALL OUTPUT 

; Auf dem Bildschirm ausgeben 

1430 ' 

INC HL 

; Stringzeiger erhoehen 

1440 • 

DJNZ PLOOP 

; Fertig? - wenn nicht, dann weitermachen 

1450 * 

POP HL 

/ HL-Register wiederherstellen 

1460 * 

POP BC 

t BC-Register wiederherstellen 

1470 ' 



1480 • SHOWHX 

CALL HEX 

; ASCII-Code der Funktionstaste ausgeben 

1490 ' 

LD A,44 

; ASCII-Code des Kommas 

1500 ' 

CALL OUTPUT 

; Ebenfalls ausgeben 

1510 ' 

LD A, 34 

; ASCH-Code des Anfuehrungszeichens 

1520 ' 

CALL OUTPUT 

; Wiederum aus geben 

1530 r 



1540 ' LOOP1 

LD A,(HL) 

f Laengenbyte der Zeichenkette lesen 

1550 ' 

LD B,A 

; Als Schleifenzaehler ins B-Register 

1560 * 

INC HL 

; Zeiger auf Zeichenadresse erhoehen 

1570 ’ 

CP 0 

; War die Funktionstaste ein Leerstring? 

1580 ’ 

JR Z, CLOSE 

; Ja - Schlusszeichen und naechste Taste 

1590 • 



1600 ' L00P2 

LD A,(HL) 

; Ein Zeichen des Funktionsstrings lesen 

1610 r 

PUSH AF 

; AF-Register sichern 

1620 ' 

PUSH BC 

; BC-Register sichern 

1630 • 

PUSH DE 

; DE-Register sichern 
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1640 

f 


PUSH 

HL 

1650 

9 


CALL 

URCHAR 

1660 

9 


POP 

HL 

1670 

t 


POP 

DE 

1680 

9 


POP 

BC 

1690 

9 


POP 

AF 

1700 

9 


INC 

HL 

1710 

9 


DJNZ 

L00P2 

1720 

t 




1730 

t 

CLOSE 

LD 

A, 34 

1740 

t 


CALL 

OUTPUT 

1750 

f 


LD 

A, 10 

1760 

f 


CALL 

OUTPUT 

1770 

1 




1780 

t 

NEXT 

INC 

C 

1790 

r 


LD 

A,C 

1800 

9 


CP 

153 

1810 

t 


CALL 

Z, VAITKY 

1820 

t 


CP 

160 

1830 

9 


JR 

NZ, PRINT 

1840 

9 


RET 


1850 

i 




1860 

1 

HEX 

LD 

A,C 

1870 

T 


CALL 

SHIFT 

1880 

r 


LD 

A, C 

1890 

f 


CALL 

HXPRNT 

1900 

t 


RET 


1910 

t 




1920 

9 

SHIFT 

RRA 


1930 

9 


RRA 


1940 

9 


RRA 


1950 

9 


RRA 


1960 

9 




1970 

9 

HXPRNT 

AND 

15 

1980 

9 


ADD 

A, 48 

1990 

9 


CP 

58 

2000 

9 


JR 

C, HEXOUT 

2010 

f 


ADD 

A, 7 

2020 

9 




2030 

9 

HEXOUT 

CALL 

OUTPUT 

2040 

9 


RET 


2050 

9 




2060 

9 


END 



; HL-Register sichern 
; Zeichen ausgeben 
; HL-Register wiederherstellen 
; DE-Register wiederherstellen 
; BC-Register wiederherstellen 
; AF-Register wiederherstellen 
/ Zeiger auf das naechste Zeichen setzen 
; Solange weiter, bis der String gelesen ist 

; Anfuehrungszeieben als Schlusszeichen laden 
9 Und ausgeben 
; Line-Feed laden 
; Und ausgeben 

; Zaehler fuer die Funktionstasten erhoehen 
; Vorbereitung des CP-Befehls 
; Nach 25 Tasten ist der Bildschirm voll 
; Uenn ja, dann auf Tastendruck warten 
; Hoechster Funktionstastencode ist 159 
; Solange nicht erreicht, weitermachen 
; Sonst Ruecksprung nach Basic 

/ Hexziffer in den Akku laden 
; Shiften und linkes Nibble ausgeben 
9 Akku wiederherstellen 

; Linkes Nibble ausblenden, rechtes ausgeben 
; Ruecksprung zum auf rufenden Programm 

1 Mit diesen vier RRA-Befehlen wird 
; das rechte Nibble aus dem Akku 
9 herausgeshiftet und das linke Nibble 
1 zum rechten Nibble gemacht 

i Mit 15 UNDieren loescht linkes Nibble 
1 Aus Binaer wird ASCII 
; Groesser als 9? 

1 Nein - Zeichen ausdrucken 
1 Ja - ASCII-Zahlen-Buchstaben-OffsetJ 

I Hexziffer ausgeben 

I Und Ruecksprung zum aufrufenden Programm 


L i s t i n g t KEYLIST 


100 f x****************************** 
110 ' x x 
120 ' x KEYLIST x 
130 ' x x 
140 f xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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150 • 

160 DEF FNmsb(a)=255 AND INT(a/256) 

170 DEF FNIsb(a)=255 AND UNT(a) 

180 MODE 1: INK 0,13: INK 1,0: INK 2,0,3: INK 3,1 
190 PAPER 0:PEN 3:B0RDER 10:SPEED INK 30,20 
200 LOCATE 1,1:PRINT STRING$(40,210 )/ 

210 LOCATE 1,2:PR INT CHR$(24)+SPACE$(16)+”KEYLIST"+SPACE$(17)+CHR$(24) 

220 LOCATE 10,5:PRINT CHR$(164)i" Martin Kotulla 1985” 

230 PR INT: PR INT STRING$(40,210) :PRINT 

240 PEN l:PRINT ” Mit diesem Programm wird der Basic-" 

250 PRINT:PRINT " Interpreter Ihres Computers um einen" 

260 PRINT:PRINT ” RSX-Befehl erweitert, mit dem die Be-” 

270 PR INT:PRINT " legung der Funktionstasten ängezeigt" 

280 PRINT:PRINT ” werden kann: n ; 

290 PEN 2: PR INT ”KEYLIST” 

300 PEN 3:PRINT:PRINT STRING$(40,210) / 

310 PEN 2:PR INT:PR INT " Bitte druecken Sie eine Taste!":CALL 1BB18:PEN 1 

320 MEMORY HIMEM-&90:Start =HIMEM+1 

330 FOR i-start TO start+18E:READ a:POKE i,a:NEXT i 

340 RESTORE 630:FOR i=l TO 8:READ a:a=a+start 

350 va1ue=PEEK(a)+PEEK(a+1)*256-40960+start 

360 POKE a,FNIsb(value):POKE a-H,FNmsb(value) 

370 NEXT i 

380 CALL start+17 ’ RSX-Routine initialisieren 

390 1 Maschinenroutine zum Erkennen des Computers ********************** 

400 POKE 1160, ICD: POKE 1161,10:POKE 1,162, 1B9: POKE 1163,13A 

410 POKE 1,164,1,2:POKE 1165, !C0:POKE 1/166, &32:POKE 1/167, &6D 

420 POKE 1,168,1/1: POKE 1/169,1/C9: CALL 1,160 

430 version=PEEK(t/16D) 

440 IF version=0 THEN !KEYLIST:END 
450 IF versionOl AND version<>2 THEN 480 
460 POKE star t+34,t,2B:POKE start+35, &B6 
470 !KEYLIST:END 
480 CLS:PEN 2 

490 PRINT:PR1NT " Ich kann mit dieser Version des" 

500 PRINT:PRINT " Computers nichts anfangen!":PRINT:PEN l:END 
510 ’ Daten des Maschinencodes ***************************************** 
520 DA TA 1/05,1/A0, &C3, &21, &A0, &4B, 1/45,1/59, &4C, 1/49,1/53, &D4,1/00,1/00,1/00, 100 
530 DA TA 1/00,1/01,1/00, &A0, &21, &0D, &A0, &CD, 1/Dl, &BC, 1/C9, &0D, 1/4B, 1/45,1/59,1/20 
540 DATA 1,26,1/2A, 1/El, &B4, &0E, 1/80,1/3E, &0C, &CD, &5A, &BB, &C5, &E5,1/06,1/06,1/21 
550 DA TA 1/1B, 1/A0, & 7E, &CD, &5A, &BB, 1/23,1/10,1/F9, t/El, t/Cl, 1/CD, 1/74, &A0, &3E, &2C 
560 DA TA 1/CD, 1/5A, &BB, &3E, 1/22,1/CD, 1/5A, 1/BB, &7E, 1/47,1/23,1/FE, 1/00,1/28,1/0F, &7E 
570 DA TA &F5, &C5, &D5, &E5, &CD, t/SD, t/BB, t/El, &D1, &C1, &F1,1/23,1/10, t/Fl, 1/3E, 1/22 
580 DA TA &CD, 1/5A, t/BB, &3E, 1/0A, 1/CD, 1/5A, t/BB, 1/0C, & 79,1/FE, 1/99, &CC, 1/18, t/BB, &FE 
590 DA TA 1/A0,120,1B8,1C9,179, ICD, 17D, 1A0,179, ICD, 181,1A0,1C9,11F, 11F, 11F 
600 DA TA 11F, 1E6,10F, 1C6,130,1FE, 13A, 138,102,1C6,107, ICD, 15A, 1BB, 1C9 
610 DATA aa 

620 ' Daten zum Relokalisieren des Maschinencodes ********************** 
630 DATA 0000,0003,0018,0021,0048,0060,0118,0122 

640 END S - 


Computer 

“Schau 


95 







Utilities 


Der Kompaktor 


Mit diesem Programm erfüllen wir 
zahlreiche Leserwünsche. Immer 
wieder wurde die Redaktion gebe- 
ten, zu allen Maschinenprogram¬ 
men auch die entsprechenden As- 
semblerlistings abzudrucken und 
zu erläutern. Wir können dies lei¬ 
der nicht bei allen Programmen 
tun. Dies würde den Rahmen eines 
Heftes total sprengen und wir müß¬ 
ten komplette Rücher für das eine 
oder andere größere Programm 
schreiben. Den Kompaktor, der 
auch im Textverarbeitungspro¬ 
gramm unseres ersten Schneider- 
Kompaktwissen-Heftes enthalten 
war, wollen wir aber etwas näher 
erläutern, da er als Utilitie (Hilfs¬ 
programm) auch bei Ihren eigenen 
Programmen Einsatz finden kann. 

Eigentlich sagt der Name schon, 
welchen Sinn das Programm hat. 
Irgendetwas wird kompakter ge¬ 
macht also „verdichtet“. Im vorlie¬ 
genden Falle geht es um im Spei¬ 
cher stehende Daten. 

Häufig befinden sich in einem Spei¬ 
cher jede Menge nicht brauchbare, 
also redundante Bytes. Bei einer Da¬ 
tei oder einem Text eines Textverar¬ 
beitungsprogrammes sind dies zum 
Beispiel Leerstellen (Spaces). Bei ei¬ 
nem Bildspeicher können es aber 
auch „Nullen“ sein. Sollen diese 
Daten nun auf einem externen Spei¬ 
chermedium (Kassette, Diskette, 
Microdrive usw.) „verewigt“ wer¬ 
den, so braucht man für diesen Vor¬ 
gang mehr Platz und mehr Zeit 
wenn diese „Redundanzbytes“ mit 
abgespeichert werden. Genau hier 
aber wird der Sinn und Zweck des 
Kompaktoreinsatzes deutlich. Der 
Kompaktor soll Abhilfe schaffen. 
Der Kompaktor besteht aus drei Tei¬ 
len. (Die Benennungen haben wir 
willkürlich gewählt.) 

Der Teil A (clear) dient dazu, den 
Speicherbereich zu löschen. 

Teil B (kompr) ist der „Packer“ der 
den Speicherbedarf komprimiert, 
also der eigentliche Kompaktor. 
Teil C (expan) ist der „Entpacker“ 


der die Daten wieder auf die ur¬ 
sprüngliche Speicherplatzausdeh¬ 
nung expandiert. 

Teil A ist also eigentlich kein Be¬ 
standteil dieser Utilitie, ist aber des¬ 
halb integriert, damit man zu Be¬ 
ginn einen „sauberen“ Speicher be¬ 
sitzt. Durch diesen Teil wird (im 
vorliegenden Programm) der Spei¬ 
cher mit Leerstellen aufgefüllt. 

Teil B sollte vor jedem Save-Vor¬ 
gang aufgerufen werden. Von Basic 
aus erhält das Programm die Adres¬ 
sen für Speicheranfang und -ende. 
Das Speicherende ist im vorliegen¬ 
den Falle mit „&F9“ gekennzeich¬ 
net. (Betrachten Sie die Arbeitswei¬ 
se vor allem auch in Verbindung 
mit dem im ersten Heft abgedruck¬ 
ten Textverarbeitungsprogramm!) 
Nach dem Programmaufruf beginnt 
der Teil B mit der Suche nach Leer¬ 
stellen (chr$(32)). Sobald dieser Co¬ 
de gefunden ist, schaut das Pro¬ 
gramm nach, ob mindestens noch 
weitere drei Leerstellen folgen. Ist 
dies nicht der Fall, dann geht die 
Suche weiter. Sind aber mehr als 
drei Speicherstellen hintereinander 
mit diesem Code belegt, dann wird 
komprimiert. Dazu ist als erstes die 
Anzahl der Leerstellen von Nöten. 
Diese wird zusammen mit einem 
„Kompressionszeichen“ (&F8) in 
die ersten drei Leerstellen geladen. 
Anschließend wird der Speicher so 
verschoben, daß alle Leerstellen in 
diesem Teil verschwinden. Sobald 
dies erledigt ist, springt das Pro¬ 
gramm wieder an den Anfang, und 
die Suche geht von neuem los. Ir¬ 
gendwann ist nichts mehr zum 
Komprimieren da, der Programm¬ 
teil hat seine Schuldigkeit getan 
und übergibt in die Speicherstellen 
&160/&161 die Länge des kompri¬ 
mierten Speichers. 

Nach einem „SAVE“ sollte sich nun 
unmittelbar der Lauf des dritten 
Programmteiles anschließen, damit 
der Datenspeicher wieder in den 
„Originalzustand“ zurückgesetzt 
wird. Denn sonst könnte es Vorkom¬ 
men, daß durch ein Print-Komman¬ 
do etwas aus dem komprimierten 


Speicher ausgegeben wird, was zu 
größter Verwirrung führt. Zum Bei¬ 
spiel Print chr$(4). 

Um dem also vorzubeugen, regene¬ 
riert der Expansionsteil wieder den 
Speicher. 

Von Basic aus kommen die origina¬ 
len Adressen für Speicheranfang 
und -ende. Gesucht wird nun nach 
&F8. Wird das Programm fündig, so 
kann der Speicher wieder um die 
Anzahl der Leerstellen verschoben 
werden. Die Leerstellen werden ein¬ 
gefügt und &F8 verschwindet. 
Nachdem dieser Programmteil abge¬ 
schlossen ist, befindet sich der 
Speicher wieder im „Originalzu¬ 
stand“. Wer bisher alles mitverfolgt 
hat, weiß es bereits: Auch direkt 
nach einem „LOAD“ sollte der Auf¬ 
ruf zur Expansion erfolgen. Ande¬ 
rerseits aber macht es dem Expan¬ 
sionsteil nichts, eine nichtkompri¬ 
mierte Datei vorgesetzt zu be¬ 
kommen. 

Der Aufruf der Routinen ist eine 
Schneider-Besonderheit, die nicht 
mit allen Z-80-Rechnern möglich 
ist. Mit CALL adresse,a,b können 
einem Maschinenprogramm auch 
die Werte zweier Variablen bekannt 
gemacht werden. Das Register „DE“ 
enthält bereits die letzte Variable, in 
diesem Falle also den Wert von „b“. 
Die zweite Variable erhält man über 
den Zeiger „IX“, der bei „IX+2“ auf 
das Lowbyte von „a“ zeigt. Natür¬ 
lich können auch mehr als zwei Va¬ 
riable an das Programm übergeben 
werden. Das „A“-Register enthält 
die Anzahl der Variablen nach dem 
CALL-Befehl. 

Generelles zum Programm 

Die Adresse &9D00 ist als Start¬ 
adresse nur ein Beispiel. Der gesam¬ 
te Code ist an jeder Stelle des Spei¬ 
chers „abrufbar“. Deshalb wurden 
als „Merkadressen“ auch die Spei¬ 
cherstellen ab &160 benutzt. Soll 
der Kompaktor zu Komprimierung 
von anderen Codefolgen (also nicht 
für Leerstellen) benutzt werden, so 
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sind die entsprechenden Codes im 
Programm zu ändern. Hierfür sollte 
dann das Assemblerlisting zu Rate 
gezogen werden. Das Programm 
komprimiert in der vorliegenden 
Version, wenn mindestens vier 
Leerstellen vorhanden sind. Das 
kann teilweise einige Zeit in An¬ 
spruch nehmen. Wird dieser Wert 
z. B. auf zehn erhöht, dann kann 
evtl, eine wesentlich schnellere Ab¬ 
arbeitung erfolgen. Dies hängt aber 
auch vom Speicherinhalt ab. Auf 


welchen Wert man die Grenze setzt, 
muß der Anwendungsfall ent¬ 
scheiden. 

Damit Sie den Kompaktor auch di¬ 
rekt in Aktion sehen können, haben 
wir ein kleines Demonstrationspro¬ 
gramm mit abgedruckt. Dabei wird 
dann der Speicher vor der Kompres¬ 
sion, nach Kompression und dann 
wieder nach der Expansion darge¬ 
stellt. Damit das ganze nicht zu 
langweilig ist, wird der Abstand 
zwischen den Worten des „geistrei¬ 


chen“ Textes mit einer Anzahl zu¬ 
fälliger Leerstellen gefüllt. Dadurch 
wird auch sichtbar, daß der Kom¬ 
paktor erst bei der vorgegebenen 
Anzahl der Leerstellen aktiv wird. 
Ganz zum Schluß soll noch ange¬ 
merkt werden, daß dieses Pro¬ 
gramm bei vielen Anwendungen 
eingesetzt werden kann. Als Bei¬ 
spiel sei hier nur auf den Einsatz bei 
einer Dateiverwaltung hingewiesen. 

B. Fernhomberg/LM 


ARNOR 

Z80 

ASSEMBLER 

Version 1. 10 


Page 001 

00002 




;*********************** 

(c) 10/85 FB 

00003 




;**# CPC KOMPAKTOR »** 


00004 




;*********************** 


00005 







00006 




;Alle Routinen 

werden von 

BASIC mit 

00007 




; CALL x,Speicherende,Speicheranfang 

00008 




lauf gerufen. 



00009 







00010 




;**» VARIABLENLISTE *** 


00011 







00012 

9F00 

(0160) 


SPHL EQU 

&160 

jLaenge kompr. Speicher 

00013 

9F00 

(0162) 


SPBC EQU 

&162 


00014 

9F00 

(0164) 


SPDE EQU 

&164 


00015 

9F00 

(0166) 


ZWSP EQU 

&166 


00016 







00017 

9D00 

(9F00) 


ORG 

&9D00,§ 


00018 







00019 




;*#* KOMPRESSION *«» 


00020 







00021 

9D00 

ED 53 

62 

01 KOMPR LD 

(SPBC),DE 

;Speicheranfang und 

00022 

9D04 

DD 6E 

02 

LD 

L,(IX+2) 

; Spei eherende kommem 

00023 

9D07 

DD 66 

03 

LD 

H,(IX+3) 

; aus BASIC. 

00024 

9D0A 

36 F9 


LD 

(HL),&F9 

;Zeichen Speieherende 

00025 

9D0C 

23 


INC 

HL 


00026 

9D0D 

22 60 

01 

LD 

(SPHL),HL 


00027 

9D10 

2A 62 

01 

LD 

HL,(SPBC) 

;Speicheranfang 

00028 







00029 

9D13 

EB 


BEGINN EX 

DE, HL 

;DE ist akt. Sp.adr. 

00030 

9D14 

2A 60 

01 

LD 

HL,(SPHL) 

;akt. Speieherende 

00031 

9D17 

A7 


AND 

A 

;Errechnung Zaehler fuer 

00032 

9D18 

ED 52 


SBC 

HL, DE 

; Space Suche. 

00033 

9D1A 

E5 


PUSH 

HL 


00034 

9D1B 

CI 


POP 

BC 

;BC ist Zaehler 

00035 

9D1C 

EB 


EX 

DE, HL 


00036 







00037 

9D1D 

3E 20 


LD 

A, &20 

;Suche nach Space 

00038 

9D1F 

ED Bl 


CP IR 



00039 

9D21 

28 OE 


JR 

Z,KOMP 

;Ist BC=0, dann Ende 

00040 
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00041 

9D23 

ED 

4B 

62 

01 

ENDE 

LD 

BC,(SPBC) 

akt. Speieherende minus 

00042 

9D27 

2A 

60 

01 



LD 

HL,(SPHL) 

Speicheranfang = 

00043 

9D2A 

A7 





AND 

A 

Gesamtmenge des komp. 

00044 

9D2B 

ED 

42 




SBC 

HL, BC 

Speichers. 

00045 

9D2D 

22 

60 

01 



LD 

(SPHL),HL 

Laenge ist in SPHL 

00046 

9D30 

C9 





RET 


gespeichert. 

00047 










00048 

9D31 

2B 




KOMP 

DEC 

HL 

1. Adr. von Space 

00049 

9D32 

E5 





PUSH 

HL 

wird gerettet. 

00050 

9D33 

01 

01 

00 



LD 

BC, 1 


00051 










00052 

9D36 

03 




K0MP1 

INC 

BC 

[Anzahl der Spaces 

00053 

9D37 

23 





INC 

HL 

wird gesucht. 

00054 

9D38 

BE 





CP 

(HL) 


00055 

9D39 

28 

FB 




JR 

Z,KOMPl 


00056 










00057 

9D3B 

Dl 





POP 

DE 


00058 

9D3C 

97 





SUB 

A 

Ist BC<4, dann wird 

00059 

9D3D 

B8 





CP 

B 

das naechste Space 

00060 

9D3E 

20 

05 




JR 

NZ,K0MP2 

gesucht. 

00061 

9D40 

3E 

03 




LD 

A, 3 


00062 

9D42 

B9 





CP 

C 


00063 

9D43 

30 

CE 




JR 

NC,BEGINN 


00064 










00065 

9D45 

EB 




K0MP2 

EX 

DE, HL 


00066 

9D46 

36 

F8 




LD 

(HL),&F8 

Kompressionszeichen 

00067 

9D48 

23 





INC 

HL 

Die Anzahl der Spaces 

00068 

9D49 

71 





LD 

(HL),C 

wird in den Speicher 

00069 

9D4A 

23 





INC 

HL 

ge 1aden. 

00070 

9D4B 

70 





LD 

(HL),B 


00071 

9D4C 

23 





INC 

HL 


00072 

9D4D 

EB 





EX 

DE, HL 

;DE VerschiebungsZIEL 

00073 










00074 

9D4E 

D5 





PUSH 

DE 

iAdr. wird gerettet 

00075 










00076 

9D4F 

E5 





PUSH 

HL 

;HL ist QUELLE 

00077 

9D50 

E5 





PUSH 

HL 


00078 

9D51 

CI 





POP 

BC 


00079 










00080 

9D52 

2A 

60 

01 



LD 

HL,(SPHL) 

akt. Sp.ende minus 

00081 

9D55 

A7 





AND 

A 

Que11e ergibt 

00082 

9D56 

ED 

42 




SBC 

HL, BC 

Zaehler fuer Sp.- 

00083 

9D58 

E5 





PUSH 

HL 

Verschiebung. 

00084 

9D59 

CI 





POP 

BC 

BC ZAEHLER 

00085 

9D5A 

El 





POP 

HL 


00086 










00087 

9D5B 

ED 

BO 




LDIR 


; Spei eherVerschiebung 

00088 










00089 

9D5D 

El 





POP 

HL ; 

;Adr. fuer Fortsetzung 

00090 

9D5E 

ED 

53 

60 

01 


LD 

(SPHL),DE ! 

[aktuelles Speicherende 

00091 

9D62 

18 

AF 




JR 

BEGI NN 


00092 










00093 






; # # # 

EXPANSION *## 


00094 










00095 

9D64 

DD 

6E 

02 


EXP AN 

LD 

L,(IX+2) 

; Spei cheranfang und 


98 


Comp uter 

Schau 








IlBBB 

Hl 


Uli 

E 

\__ 

Utilities 1 


00096 

9D67 

DD 66 03 


LD 

H,CIX+3) ; 

Spei eherende kommem 

00097 

9D6A 

ED 53 62 01 


LD 

(SPBC),DE ; 

aus BASIC. 

00098 

9D6E 

A7 


AND 

A 


00099 

9D6F 

ED 52 


SBC 

HL, DE 


00100 

9D71 

22 64 01 


LD 

(SPDE),HL »Spei eher laenge 

00101 







00102 

9D74 

2A 62 01 


LD 

HL,(SPBC) ; 

Suche nach akt. 

00103 

9D77 

3E F9 


LD 

A,&F9 5 

Speicherende. 

00104 

9D79 

ED 4B 64 01 


LD 

BC,(SPDE) 5 

Gesamtspeicherlaenge 

00105 

9D7D 

ED Bl 


CP 1R 



00106 

9D7F 

CO 


RET 

NZ 


00107 

9D80 

2B 


DEC 

HL 


00108 







00109 

9D81 

22 60 01 


LD 

(SPHL),HL 5 

akt. Speicherende 

00110 

9D84 

2A 62 01 

BEGEX 

LD 

HL,(SPBC) 


00111 

9D87 

3E F8 


LD 

A, &F8 

Suche nach 

00112 

9D89 

ED 4B 64 01 


LD 

BC,(SPDE) 

Kompressions- 

00113 

9D8D 

ED Bl 


CP IR 


Zeichen. 

00114 

9D8F 

CO 


RET 

NZ 

Ist BC=0, dann ENDE. 

00115 







00116 

9D90 

2B 


DEC 

HL 


00117 

9D91 

E5 


PUSH 

HL 

1.Spaceadresse 

00118 

9D92 

23 


INC 

HL 


00119 

9D93 

4E 


LD 

C,(HL) 

BC Anzahl der einzu- 

00120 

9D94 

23 


INC 

HL 

fuegenden Spaces 

00121 

9D95 

46 


LD 

B,(HL) 

minus 4. 

00122 

9D96 

OB 


DEC 

BC 


00123 

9D97 

OB 


DEC 

BC 


00124 

9D98 

OB 


DEC 

BC 


00125 

9D99 

OB 


DEC 

BC 


00126 

9D9A 

ED 43 66 01 


LD 

(ZWSP),BC 

■Anzahl wird gerettet. 

00127 







00128 

9D9E 

2A 60 01 


LD 

HL,(SPHL) 

;das alte Sp.ende ist 

00129 

9DA1 

E5 


PUSH 

HL 

; die QUELLE. 

00130 

9DA2 

09 


ADD 

HL, BC 


00131 

9DA3 

22 60 01 


LD 

(SPHL),HL 

Jneues akt. Ende 

00132 







00133 

9DA6 

EB 


EX 

DE, HL 

;DE ZIEL 

00134 

9DA7 

El 


POP 

HL 


00135 

9DA8 

CI 


POP 

BC 


00136 

9DA9 

E5 


PUSH 

HL 

{l.Spaceadr. minus 

00137 

9DAA 

A7 


AND 

A 

; Quelle ergibt den 

00138 

9DAB 

ED 42 


SBC 

HL, BC 

; ZAEHLER. 

00139 

9DAD 

E5 


PUSH 

HL 


00140 

9DAE 

CI 


POP 

BC 


00141 

9DAF 

El 


POP 

HL 

SHL QUELLE 

00142 







00143 

9DB0 

ED B8 


LDDR 


{SpeicherVerschiebung 

00144 







00145 

9DB2 

ED 4B 66 01 


LD 

BC,(ZWSP) 

»Einfuegen der Spaces 

00146 

9DB6 

03 


INC 

BC 


00147 

9DB7 

03 


INC 

BC 


00148 

9DB8 

36 20 


LD 

(HL),&20 

;hl QUELLE 

00149 

9DBA 

E5 


PUSH 

HL 


00150 

9DBB 

Dl 


POP 

DE 
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00151 

9DBC 

13 

INC 

DE 

IDE ZIEL 

00152 

9DBD 

ED B0 

LDI'R 



00153 

00154 

9DBF 

18 C3 

JR 

BEGEX 


00155 

9DC1 

(9FC1) 

END 




Errors: 00000 Warningss 00000 


SYMBOL TABLE: 


9D13 BEGINN 
9D00 KOMPR 
0160 SPHL 


9D84 BEGEX 
9D31 KOMP 
0162 SPBC 


9D23 ENDE 
9D36 K0MP1 
0164 SPDE 


9D64 EXPAN 
9D45 K0MP2 
0166 ZWSP 



Listing s KOMPDEMO (Kompaktor-Demonstration) 

100 '###################### c 10.85/FB 
110 '*** KOMPAKTOR DEMO *** 

120 ' x********************* 

130 MODE l:MEMORY 19999 

140 LOCATE 9,2:PRlNT n K OMPAKTOR Demo” 

150 LOCATE 8, 3: PR INT STRING$<19, ”=”) 

160 LOCATE 1,9:PR INT”ACHTUNG! Dieses Programm arbeitet nur," 

170 LOCATE 10,11:PRlNT”wenn der KOMPAKTOR geladen ist 
180 LOCATE 9,18:PRINT”Bitte legen Sie die Cassette mit” 

190 LOCATE 9,20 :PRINT n dem KOMPAKTOR M-Code ein." 

200 LOCATE 9,22:PRINT"Starten Sie dann den Recorder.” 

210 LOAD”!KOMPCODE. BIN”, &9D00 
220 '************ 

230 '*** DEMO *** 

240 '*#********** 

250 MODE 2 

260 LOCATE 2,2:PRINT”Speicheranfang: 20000”, :spa=20000 
270 PRINT CHR$(&F8)Zeichen fuer Kompression” 

260 LOCATE 2, 4:PRINT”Speicherende : 20080”, :spe=20080 
290 PRINT CHR$(&F9)t”: Zeichen fuer akt. Speicherende” 

300 ' 

310 LOCATE 2, 8:PRINT ”Dieses steht als Test im Speicher:” 

320 a$=” DER”+STRING$(RND*10, ” ”) + ”KOMP. "+STRING$(RND*10, ” ”) + ”HAT” 

330 a$=a$+STRING$(RND*10, ” ”) + ”GROSSE”+STRING$(RND*10, ” ”)^"VORTEILE.” 
340 a$=a$+STRlNG$(80-LEN(a$), CHR$(32)) 

350 FOR n=l TO LEN(a$):POKE 19999+n,ASC(MlD$(a$,n,l)):NEXT 
360 LOCATE 1,10:GOSUB 520 
370 • 

380 CALL &9D00, spe,spa:'KOMPRESSION 

390 LOCATE 2,14:PRlNT”Nach KOMPRESSION (Laenge:”; 

400 PRINT PEEK(&160)+256*PEEK(&161)!”):” 

410 LOCATE 1,16:G0SUB 520 
420 ' 

430 CALL &9D64, spe, spa:'EXPANSION 

440 LOCATE 2,20:PRINT"und dann nach EXPANSION:” 

450 LOCATE 1,22:G0SUB 520 
460 ' 
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470 LOCATE 2,25:PRINT"Bitte Taste druecken":CALL &BB06 

480 GOTO 250 

490 '******************* 

500 '*** SUBPROGRAMM ### 

510 '******************* 

520 PRINT CHR$(&18)I:FOR n-20000 TO 20080:c=PEEK(n) 

530 IF c<32 THEN PRINT CHR$(c+48)l:ELSE PRINT CHR$(c)i 
540 NEXT:PRINT CHR$(&18);:RETURN 



I_.ist.ings KOMPAKTOR 


100 '******************************** c 10.85/FB 
110 •*** HEX-Lader fuer KOMPAKTOR *** 

120 ********************************* 

130 ' 

140 DIM a$(13):SPEED WR1TE 1 

150 A$(1)= "ED 53 62 01 DD 6E 02 DD 66 03 36 F9 23 22 60 01” 

160 A$<2)= "2A 62 01 EB 2A 60 01 A7 ED 52 E5 CI EB 3E 20 ED" 

170 A$(3)= "Bl 28 0E ED 4B 62 01 2A 60 01 A7 ED 42 22 60 01" 

180 A$(4)= "C9 2B E5 01 01 00 03 23 BE 28 FB Dl 97 B8 20 05" 

190 A$(5)= "3E 03 B9 30 CE EB 36 F8 23 71 23 70 23 EB D5 E5" 

200 A$(6)= "E5 CI 2A 60 01 A7 ED 42 E5 CI El ED B0 El ED 53" 

210 A$(7) = "60 01 18 AF*DD 6E 02 DD 66 03 ED 53 62 01 A7 ED" 

220 A$(8)= "52 22 64 01 2A 62 01 3E F9 ED 4B 64 01 ED Bl C0" 

230 A$(9)= "2B 22 60 01 2A 62 01 3E F8 ED 4B 64 01 ED Bl C0” 

240 A$(10) = "2B E5 23 4E 23 46 0B 0B 0B 0B ED 43 66 01 2A 60" 

250 A$(ll)="01 E5 09 22 60 01 EB El CI ES A7 ED 42 E5 CI El" 

260 A$(12)="ED B6 ED 4B 66 01 03 03 36 20 E5 Dl 13 ED B0 18" 

270 A$(13) = "C3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ” 

280 r 

290 'Pruefcode 
300 ’ 

310 DATA 1547,1989,1382,1575,2048,2636,1778 
320 DA TA 1688,1644,1079,2369,1822,195 
330 ' 

340 | 

350 MODE 2:REST0RE:INPUT"Startadresse fuer KOMPAKTOR: ", adr:sadr=adr 
360 IF adr>43710 THEN 350 ELSE MEMORY (adr-1) 

370 FOR m=l TO 13:sum=0:a$(m)="00"+a$(m) 

380 FOR n=l TO 16:a=VAL("&"+MlD$ (a$ (m),n*3)) 

390 POKE adr,a:sum=sum+a:adr=adr+l 
400 NEXT:READ a 

410 IF aOsum THEN LOCATE 20,12:PRINT"FEHLER IN A$("im! ") ":END 


420 NEXT in 
430 ' 

440 LOCATE 20,9:PRINT”A1les in Ordnung . Hex-Code ist geladen." 

450 LOCATE 20,14:PRINT"Adr. Kompression: &";HEX$(sadr) 

460 LOCATE 20,16:PRlNT”Adr. Expansion : &";HEX$(sadr+100) 

470 LOCATE 1,20 

480 PRlNT"Aufruf der Routinen: CALL (Adr.), Speicherende, Speicheranfang" 
490 LOCATE 1,22:PRINT"SAVE KOMPAKTOR CODE:" 

500 SAVE"Kompcode. bin",B, sadr, 193 H 

510 END ™ 
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DIN-Tisütur üi 
Schneider CPC 464/664/ 
6128 unter (P/M 2.2 


Leider stehen für den CPC unter 
CP/M keine deutschen Zeichen zur 
Verfügung. Mit diesem Programm 
haben Sie aber auch unter CP/M 
2.2 eine DIN-Tastatur. 

Zur DIN-Tastatur gehören die Um¬ 
laute und die entsprechende Tasta¬ 
turbelegung wie sie auf einer 
Schreibmaschine vorkommt. 

Beim Schneider-Computer kann 
man bekanntlich den Zeichensatz 
und die Tastaturbelegung ändern. 
Unter Basic gibt es entsprechende 
Befehle, die dazu benutzt werden 
können. Das Betriebssystem stellt 
für die Maschinensprache Sprung¬ 
adressen zur Verfügung. Diese kön¬ 
nen auch unter CP/M 2.2 benutzt 
werden. Mit diesen Sprungadressen 
werden die Wiederholungen und 
die Änderung der Tastaturbelegung 
vorgenommen. So wird zum Bei¬ 
spiel auch die TAB-Taste und die 
ENTER-Taste in die Wiederholung 
mit einbezogen, da sie auch auf der 


Schreibmaschine so vorhanden ist. 
Das Ändern des Zeichensatzes stellt 
dabei eine Besonderheit dar. Die 
Umlaute werden nicht in die Matrix 
eingebaut, sondern werden immer 
dann angerufen, wenn ein Zeichen 
zur Ausgabe ansteht. Dazu wird der 
Vector TXT WRITE CHAR der Be¬ 
triebssystemroutine verbogen und 
auf eine Routine im Speicher ge¬ 
setzt. Dort wird abgefragt ob ein ent¬ 
sprechendes ASCII-Zeichen (z. B. 
7B) ansteht. Ist dies der Fall, wird 
der Zeiger auf die Deutschen Zei¬ 
chen in einem Zwischenspeicher 
gestellt, und dem Betriebssystem 
mitgeteilt. Erst dann wird das Zei¬ 
chen ausgegeben. 

Wie erstelle ich mir nun ein 
Command-File auf Diskette! 

Sie können den ED.COM unter CP/ 
M dazu benutzen. Dieser Editor ist 
allerdings schwierig zu handhaben. 
Gehen Sie in CP/M Betriebssystem 


und tippen Sie ED DIN.ASM ein. 
Der Editor meldet sich mit dem Be¬ 
reitschaftszeichen 
Geben Sie nun I für Einfügen ein 
und tippen das Listing ein. Wenn 
Sie damit fertig sind, geben sie 
CONTROL-Z ein und dann E um 
das Programm auf Diskette zu si¬ 
chern. 

Falls Ihnen das zu Umständlich ist, 
können Sie auch jeden anderen Edi¬ 
tor benutzen (z. B. TASWORD, 
TEXPACK) um das Listing einzu¬ 
geben. 

Ist das ASCII-File DIN.ASM auf Dis¬ 
kette, geben Sie unter CP/M den Be¬ 
fehl ASM DIN ein. Dieses generiert 
ein File DIN.HEX. Um das endgülti¬ 
ge Programm zu erstellen, müssen 
Sie jetzt noch den Befehl LOAD DIN 
eingeben. Dann steht Ihnen das Pro¬ 
gramm DIN.COM zur Verfügung. 
Durch eingeben von DIN wird das 
Programm gestartet und Sie haben 
eine DIN-Tastatur. 

Wolfgang Gentzsch/LM 


;############*#*######*######*############## 
;# DIN-Tastatur unter CP/M 2.2 # 

f # * 

i* Deutsche Umlaute und Tastenbelegung * 
;* unter CP/M 2.2 auf dem CPC 464/664 # 

; # - * 
;* Copyright (C) Wo 1fgang Gentzsch 1985 # 

;tt****tf*ft****tf*#**tt*ft*tf**********tf**tt******* 

I 

^Betriebssystem Call’s 


BB39 = 

repeat 

equ 

0bb39h 

;KM 

SET 

REPEAT 

BB27 = 

trans 

equ 

0bb27h 

;km 

SET 

TRANSLATE 

BB2D = 

shift 

equ 

Obb2dh 

»KM 

SET 

SHIFT 
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BB33 = control 

equ 

0bb33h 5KM SET CONTROL 

BDD3 = v 

ector 

equ 

0bdd3h »TXT WRITE CHAR 


System 

Adressen 


B700 = t 

,pa equ 

0b700h 

jTreiber dort ablegen 

134E = matrix 

! 

equ 

0134eh »TXT GET MATRIX 

0100 

org 

0100h 

;TPA Start 


Tastaturwiederholungen einstellen 


FF = erlaubt 00 = nicht erlaubt 


AKKU = 

Tastennummer 


0100 06FF 

mvi 

b, Of.f h 


0102 3E44 

mvi 

a, 44h 

»Taste 'TAB' 

0104 CD39BB 

cal 1 

repeat 


0107 06FF 

mvi 

b,Offh 


0109 3E12 

mvi 

a f 12h 

(Taste 'ENTER* 

010B CD39BB 

ca 11 

repeat 



;Tasten 

neu belegen 



;a = Tastennummer b = 

neue Uebersetzung 

010E 21FC01 

lxi 

h,tasten 


0111 0610 

mvi 

b, 10h 

;16 Tasten neu belegen 

0113 C5 

loop 

push 

b »Anzahl auf Stack 

0114 7E 

mov 

a, m 

;Akku mit Tastennummer laden 

0115 23 

inx 

h 


0116 46 

mov 

b, m 

»belegung ohne Shift 

0117 F5 

push 

psw 

;Tastennummer auf Stack 

0118 E5 

push 

h 

»Adresse der Tabelle retten 

0119 CD27BB 

cal 1 

trans 

;KM SET TRANSLATE 

011C El 

pop 

h 

;Tabellen-Adresse zurueck 

01ID Fl 

pop 

psw 

;Tastennummer zurueck 

01IE 23 

inx 

h 


011F 46 

mov 

b, m 

;mit Shift 

0120 F5 

push 

psw 


0121 E5 

push 

h 


0122 CD2DBB 

cal 1 

shi f t 

;KM SET SHIFT 

0125 El 

pop 

h 


0126 Fl 

pop 

psw 


0127 23 

inx 

h 


0128 46 

mov 

b, m 

Jmit Control 

0129 E5 

push 

h 


012A CD33BB 

cal ( 

contro1 

;KM SET CONTROL 

012D El 

pop 

h 


012E 23 

inx 

h 


012F CI 

pop 

b 

»Anzahl der Tasten 

0130 05 

der 

b 

»eine weniger 

0131 78 

mov 

a, b 


0132 FEOO 

epi 

00 h 

;fertig? 

0134 C21301 

jnz 

1 

! 

i 

1 oop 

;wenn nicht, weiter 
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jZeichentreiber im Speicher ablegen 



;Der Bereich 

B700H - B800H wird 

vom CP/M nicht benutzt! 

0137 

215201 

lxi 

h,treiber »Tabel )e 

des Neuen Treibers 

013A 

1100B7 

lxi 

d r tpa 

«dort wird er abgelegt 

013D 

D5 

push 

d 

»wird dem Betriebssystem 





Suebergeben 

013E 

06AA 

mvi 

b, tend-treiber 

»laenge des Treibers 

0140 

7E 

1 dir 

mov a,m 

;Byte aus Treiber lade 

n 

0141 

12 

stax 

d 

;im TPA neu ablegen 

0142 

23 

inx 

h 


0143 

13 

inx 

d 


0144 

05 

der 

b 


0145 

78 

mov 

a, b 


0146 

FEOO 

epi 

00h 

»alles verschoben ? 

0148 

C24001 

jnz 

Idir 

Jsonst wiederholen 

014B 

El 

pop 

h 

>HL wird DE 

014C 

22D4BD 

shld 

vector + l 5 TXT WRITE CHAR patch 

014F 

C30000 

jmp 

0000h 

»Warmstart CCP 

0152 

E5 

• 

f 

treiber 

push h 

;wird TXT GET MATRIX u 

ebergeben 




0153 

2162B7 

lxi 

h,tpa+para-treiber 


0156 

FE40 

epi 

40h 

;§? 

0158 

37 

stc 


»Carry-Flag an 

0159 

CA4E13 

jz 

matrix 

;ins Betriebssystem 

015C 

216AB7 

lxi 

h,tpa+sz-treiber 


015F 

FE7E 

epi 

7eh 


0161 

37 

stc 



0162 

CA4E13 

jz 

matrix 


0165 

2172B7 

lxi 

h,tpa+dach-treiber 


0168 

FESE 

epi 

5eh 


016A 

37 

stc 



016B 

CA4E13 

jz 

matrix 


016E 

217AB7 

lxi 

h,tpa+kae-treiber 


0171 

FE7B 

epi 

7bh 


0173 

37 

stc 



0174 

CA4E13 

jz 

matrix 


0177 

2182B7 

lxi 

h,tpa+gae-treiber 


017A 

FE5B 

epi 

5bh 


017C 

37 

stc 



017D 

CA4E13 

jz 

matrix 


0180 

218AB7 

lxi 

h,tpa+koe-treiber 


0183 

FE7C 

epi 

7ch 


0185 

37 

stc 



0186 

CA4E13 

jz 

matrix 


0189 

2192B7 

lxi 

h,tpa+goe-treiber 


018C 

FE5C 

epi 

5ch 


O10E 

37 

stc 



018F 

CA4E13 

jz 

matrix 


0192 

219AB7 

lxi 

h,tpa+kue-treiber 


0195 

FE7D 

epi 

7dh 


0197 

37 

stc 



0198 

CA4E13 

jz 

matrix 


019B 

21A2B7 

lxi 

h,tpa+gue-treiber 
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019E 

FE5D 

cpi 

5dh 


OIAO 

37 

stc 



01A1 

CA4E13 

jz 

matrix 




Berechnen der Zeichenmatrix im ROM 




Reg. HL 

zeigt auf entsprechende Matrix im ROM 


01 A4 

D5 

push 

d »wird benoetigt 

01A5 

110038 

1 xi 

d,3800h {Tabelle im 

ROM 

01A8 

6F 

mov 

l,a {Zeichen in 

Akku 

01A9 

2600 

mvi 

h, 00h 


01AB 

29 

dad 

h 


01AC 

29 

dad 

h 


01 AD 

29 

dad 

h 


01AE 

19 

dad 

d 


01AF 

Dl 

pop 

d 


01B0 

B7 

ora 

a 


01B1 

C34E13 

jmp 

matrix 




Tabe1le 

der neuen Zeichen 


01B4 

3E60386C38] 

para 

db 3eh,60h,38h,6ch,38h,Och,Of8h,00h 

01BC 

386C6C7C66sz db 

38h,6ch,6ch,7ch,66h,66h,6ch,60h 


01C4 

386CC60000dach 

db 38h,6ch,0c6h,00h,00h,00h,00h,00h 

01CC 

0066003E66kaedb 

00h,66h,00h,3eh,66h,66h,3bh,00h 


01D4 

663C66667Egae db 

66h,3ch,66h,66h,7eh,66h,66h,00h 


01DC 

0066003C66koe db 

00h,66h,00h,3ch,66h,66h,3ch,00h 


01E4 

C67CC6C6C6goe db 

0c6h,7ch,Oc6h,0c6h,Oc6h,0c6h,7ch,00h 


01EC 

0066006666kue db 

00h,66h,00h,66h,66h,66h,3ch,00h 


01F4 

6600666666gue db 

66h,00h,66h,66h,66h,66h,3ch,00h 


01FC 

= 

t 

tend 

equ $ 




9 

»Hier beginnt die Tabelle der neuen Tastenbelegung 




9 

;1.Byte 

= Tastennummer 




;2.Byte 

= Zeichen ohne Shift 




;3.Byte 

= Zeichen mit Shift 




54.Byte 

= Zeichen mit Control 


01FC 

1C7B5B1B 

i 

tasten 

db Ich,7bh,5bh,lbh 


0200 

1A7D5D1D 

db 

Iah,7dh,5dh,ldh 


0204 

1D7C5C1C 

db 

ldh,7ch,5ch,Ich 


0208 

197E3F00 

db 

19h,7eh,3fh,00h 


020C 

2B7A5A1A 

db 

2bh,7ah,5ah,Iah 


0210 

47795919 

db 

47h,79h,59h,19h 


0214 

39334000 

db 

39h,33h,40h,00h 


0218 

185E6000 

db 

18h,5eh,60h,00h 


021C 

112B2A00 

db 

1lh,2bh,2ah,00h 


0220 

1323271E 

db 

13h,23h,27h,leh 


0224 

163C3E00 

db 

16h,3ch,3eh,00h 


0228 

1E2D5F1F 

db 

leh,2dh,5fh,lfh 


022C 

20303D00 

db 

20h,30h,3dh,00h 


0230 

272C3B00 

db 

27h,2ch,3bh,00h 


0234 

1F2E3A00 

db 

lfh,2eh,3ah,00h 


0238 

29372F00 

db 

29h,37h,2fh,00h 


023C 


i 

end 
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Die zweite Mögüchkeü 

für DIN.COM 


Wolfgang Gentzsch, der Pro¬ 
grammautor des vorhergehenden 
Artikels hat mit seinem Programm 
bestimmt vielen Lesern einen Ge¬ 
fallen getan. Schwierigkeiten der 
Erzeugung von DIN.COM können 
aber bei CPC-Besitzem auftreten, 
die bisher noch wenig mit CP/M 
gearbeitet haben aber trotzdem 
dieses File abspeichem wollen. 
Deshalb hat ComputerSchau mal 
wieder in die Trickkiste gegriffen. 
Erzeugen wir dieses File doch ein¬ 
fach von Basic aus. 


Etwas „untertrieben“ habe ich in 
obigen Vorspann. Denn mit Basic 
alleine schafft man es auch noch 
nicht so ohne weiteres. Aber mit 
dem, von den Grundlagenartikeln 


schon bekannten Maschinenpro¬ 
gramm SECTOR klappt es, wenn 
man etwas trickst, ganz hervorra¬ 
gend. Dazu braucht man nun kein 
Textverarbeitungsprogramm und 
auch nicht den unkonfortablen CP/ 
M-Editor sondern das erzeugende 
Programm ist ein normales Basicli- 
sting. Aber mit ein paar kleinen 
Tricks, die es in sich haben. 

Wie Ihnen sicherlich bekannt ist, 
kann man Maschinenprogramme 
als sogenannte Datastatements in 
Basicprogrammen ablegen und 
durch den Programmlauf in die ent¬ 
sprechenden Speicherstellen po- 
ken. Ist dieser Vorgang beendet, 
dann können die Maschinenpro¬ 
gramme auch als Binärfile abgespei¬ 
chert und von den Basicprogram¬ 
men eingelesen werden. 


Der Header ist das Problem 

Mit einem Programm vom Typ 
.COM ist dies aber nicht so ohne 
weiteres möglich. Versuchen Sie ru¬ 
hig einmal ein COM-File als Binärfi¬ 
le zu laden, es geht nicht. Erinnern 
Sie sich noch an das Problem des 
Lesers, der Eproms brennen wollte? 
Der Grund dieser Tatsache ist, daß 
bei Binärfiles nicht nur der reine 
Maschinencode auf der Disk abge¬ 
legt wird, sondern diesem ein Hea¬ 
der, also ein Vorspann (mit Informa¬ 
tionen für den CPC selbst) voran- 
slehl. COM-Files dagegen sind 
„headerlos“. Es ist nun aber nicht 
möglich, mit den normalen Befeh¬ 
len für den Abspeichervorgang hea¬ 
derlose Files mit dem Extend COM 
zu erzeugen. Deshalb müssen wir 
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einen direkten Diskettenzugriff 
durchführen. Dieser Zugriff ist wie 
Ihnen schon bekannt mit SECTOR 
möglich. Was ist also alles zu tun, 
um mittels dieser Maschinenrouti¬ 
ne das gewünschte File zu erzeu¬ 
gen? Nun als erstes brauchen wir 
zunächst einmal die Daten von DIN- 
.COM. Dies habe ich für Sie schon 
erledigt, indem ich mittels einer 
modifizierten Version des Program¬ 
mes READER, die Daten in den Be¬ 
reich ab &9000 eingelesen hatte. Die 
Daten von DIN.COM standen nun 
im Speicher. 

Vorher hatte ich mir aber den File¬ 
eintrag dieses Programmes näher 
angesehen und festgestellt, daß drei 
Records für ihn benötigt werden. 
Dies bedeutete, daß ein Sector für 
das Programm ausreicht. Nachdem 
ich die Daten im Speicher hatte, 
nahm ich meinen DATA-Generator 
und ließ mir ein Datalisting zeigen. 
Eine Generierung von DIN.COM ist 
damit aber noch nicht möglich, 
denn beim Abspeichern als Binär¬ 
file hat man wieder den Header, an 
dem sich CP/M „verschluckt“. Also 
muß ein anderer Weg gegangen 
werden. 


Bitte Lisüng ansehen 

Um dies nun detailliert aufzuzei¬ 
gen, sollten Sie sich beim Lesen des 


nun folgenden auch immer wieder 
das Listing COMDIN betrachten. In 
den Zeilen bis 150 steht nichts au¬ 
ßergewöhnliches. Diese Zeilen dürf¬ 
ten für Sie „Klartext“ sein. 

Die Zeilen 160 und 170 dienen da¬ 
zu, Sie darauf aufmerksam zu ma¬ 
chen, daß Sie eine Diskette im Sy¬ 
stemformat einlegen sollen, denn 
unter CP/M können Sie mit Data- 
only-Disketten wenig anfangen. 

Und nun kommen bereits die ersten 
Tricks in den Zeilen 180 bis 210. 
Durch OPENOUT“ din.com” und 
den nachfolgenden Printbefehlen 
wird dafür gesorgt, daß ein Eintrag 
dieses Namens ins Inhaltsverzeich¬ 
nis der Diskette erfolgt und auch 
irgendwelche Zeichen in das eigent¬ 
liche File geschrieben werden. Der 
Schreibvorgang ist erforderlich, da¬ 
mit im Fileeintrag auch die ge¬ 
wünschte Recordlänge steht. Ist die¬ 
ser nämlich niedriger, dann wird 
später zu wenig gelesen und der 
CPC stürzt ab. Eine direkte Manipu¬ 
lation im Inhaltsverzeichnis wäre 
umständlicher gewesen, deshalb 
dieser kleine „Dreh“. Anschließend 
wird das File korrekt geschlossen. 
Nun wird schon wieder getrickst. 
Um nämlich nachher zu wissen, auf 
welchen Sektor und auf welche 
Spur wir die Daten direkt schreiben 
müssen, ist es nötig diese Informa¬ 
tionen zu kennen. Durch „öffnen“ 
des Files aber erfahren wir dies. Ab 


der Speicherstelle &A719 und den 
folgenden stehen nämlich die 
Blocknummern des eröffneten Fi¬ 
les. Da wir nur einen Sektor haben, 
können wir nun die Blocknummer 
aus dieser Speicherstelle abholen. 
Durch Zeile 210 wird diese Block¬ 
nummer in Track und Sector umge¬ 
rechnet. In der Formel zur Umrech¬ 
nung weist die Zahl 18 daraufhin, 
daß bei CP/M zwei Spuren ä 9 Sek¬ 
toren reserviert sind. Der Befehl 
MOD wird vielen 464-Besitzern un¬ 
bekannt sein. Er ist in deren Hand¬ 
buch nicht erwähnt, aber trotzdem 
vorhanden. Er bewirkt, daß ein ge¬ 
rundeter Rest (Modulo) bei einer 
Teilung von Dividend durch Divi¬ 
sor gebildet wird. (Werfen Sie doch 
mal einen Blick in ein 664- oder 
6128-Handbuch!) Damit wissen wir 
nun, wohin wir mit den Daten für 
unsere deutsche Tastatur unter CP/ 
M müssen. Nun werden die Daten 
aus den Datazeilen gelesen und in 
den ab &9000 reservierten Buffer ab¬ 
gelegt. Der Rest wird dann durch 
die bekannte Maschinenroutine er¬ 
ledigt, nachdem vorher die entspre¬ 
chenden Werte für den Befehl usw. 
übergeben wurden. Das heißt diesen 
Teil kennen Sie ja schon. Am Ende 
des Programmlaufes steht das ferti¬ 
ge Programm auf der Diskette. Wie 
Sie sehen, es ist vieles machbar, 
wenn man den CPC etwas genauer 
kennt. Lothar Miedel 


L-istings COMDIN - erzeugt DIN-Tastatur-Programm fuer CP/M 


100 'Comdin 

110 f Programm um von Basic aus das File D1N*C0M zu erzeugen 
120 ' 

130 MEMORY &8FFF: MODE 2:PRINT"Bi tte die Diskette mit SECTOR.BIN einlegen" 
140 PRINT"und dann eine Taste druecken ! "tCALL &BB06 
150 LOAD"sector. bin", &A600 

160 PRlNT:PRlNT"Nun bitte Ihre CP/M Arbeitsdiskette einlegen" 

170 PRINT"und eine Taste druecken !":CALL &BB06 
180 0PEN0UT"din. com" 

190 PRINTU9, STRING$(128, "*") :PRINT*9,STRING$(128, "*") 

200 CLOSEOUT:OPENIN"din. com ": bn=PEEK(&A 719) 

210 CLOSEIN:bn =bn*2+18:track=lNT(bn/9) :sector=bn MOD 9+1 
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220 ' 

230 PRJNT:PRINT"Nun lese Sch die Daten in den Buffer 
240 a =8*9000:e=8t913F: zb=1000:e=e+l 

250 FOR i =a TO et READ d$:lF LEFT$(d$, l) = "8, n THEN flag =1 

260 IF (flag AND ps<>VAL(d$)) THEN PRINT"FehI er in Zeile "zb+i:END 

270 IF (flag AND i=e) THEN GOTO 330 

280 IF flag THEN i=i-l:zb=zb*l : ps=0:d$= nn :flag = 0:GOTO 300 
290 d$="8, "+d*iPOKE i,VAL(d$):ps=ps+ VAL(d$): 

300 IF i < e THEN NEXT i 
310 ' 

320 'Adressen fuer Maschinenprogramm 

330 aktdrivemc=8,A 702: befehl mc=8,A622: buf fermc=8,A629: dr i venmc=itA626 
340 formsemc=8,A628:trackmc=8>A627:mcstart=8,A600 
350 ' 

360 buffer$= n 9000 n i' Beginn des Buffers aus dem geschrieben wird 

370 form =8*40:' Da DIN.COM fuer CP/M: nur Systemformat erlaubt !! 

380 befehl =8,85:P0KE befehlmc,befehl 
390 drive=PEEK(aktdrivemc) 

400 ' 

410 'Werte fuer Bufferadresse berechnen 

420 buff low=VALC8t "+RIGHT$ (buff er $,2)): buff hi gh=VAL ( "8* ”+LEFT$ (buffer$, 2) ) 

430 ' 

440 PRINT"Nun wird DIN.COM geschrieben 
450 '*************** ##########****** 

460 '#exakt einen Sektor schreiben # 

470 'tu***************************** 

480 seeform =form+sector:POKE (bufferme),bufflow:PQKE (buffermc+1), buffhigh 
490 POKE drivenmc,drive:POKE trackmc, track:POKE formsemc, secform:CALL mestart 
500 PRINT"fertig ! 

510 • 

1001 DATA 06, FF, 3E, 44, CD, 39, BB, 06, FF, 3E, 12, CD, 39, BB, 21, FC, 8/077B 

1002 DA TA 01,06,10, C5, 7E, 23, 46, F5, E5, CD, 27, BB, El, Fl, 23, 46, 8,0787 

1003 DA TA F5, E5, CD, 2D, BB, El, Fl, 23, 46, E5, CD, 33, BB, El, 23, CI, 8,0A2F 

1004 DA TA 05, 78, FE, 00, C2,13,01,21,52,01,11,00, B7, D5,06, AA, 8,0512 

1005 DA TA 7E, 12,23,13,05, 78, FE, 00, C2, 40,01, El, 22, D4, BD, C3,8,069B 

1006 DATA 00,00, E5,21,62, B7, FE, 40, 37, CA, 4E, 13,21,6A,B7, FE, 8,06FF 

1007 DATA 7E, 37, CA, 4E, 13,21, 72, B7, FE, 5E, 37, CA, 4E, 13,21, 7A, 8,0683 

1008 DA TA B7, FE, 7B, 37, CA, 4E, 13,21, 82, B7, FE, 5B, 37, CA, 4E, 13,8,07A 7 

1009 DATA 21,8A, B7, FE, 7C, 37, CA, 4E, 13,21,92, B7, FE, 5C, 37, CA, 8,0803 

1010 DATA 4E, 13,21, 9A,B7, FE, 7D, 37, CA, 4E, 13,21, A2,B7, FE, 5D, 8,0785 

1011 DATA 37, CA, 4E, 13, D5,11,00, 38, 6F, 26,00,29,29,29,19, Dl, 8,047A 

1012 DA TA B7, C3, 4E, 13, 3E, 60, 38, 6C, 38,0C, F8,00, 38, 6C, 6C, 7C, 8,05E5 

1013 DA TA 66, 66, 6C, 60, 38, 6C, C6,00,00,00,00, 00,00, 66,00, 3E, 8,03A6 

1014 DA TA 66, 66, 3B, 00, 66, 3C, 66, 66, 7E, 66, 66,00,00, 66,00, 3C, 8,0461 

1015 DA TA 66, 66, 3C, 00, C&, 7C, C6, C6, C6, C6, 7C, 00,00, 66,00, 66, 8,06AA 

1016 DA TA 66, 66, 3C, 00, 66,00, 66, 66, 66, 66, 3C, 00, IC, 7B, 5B, 1B, 8,044F 

1017 DATA 1A, 7D, 5D, ID, ID, 7C, 5C, IC, 19, 7E, 3F, 00,2B, 7A, 5A, 1A, 8,0411 

1018 DATA 47, 79, 59,19, 39, 33, 40,00,18,5E, 60,00,11,2B, 2A, 00, 8,031A 

1019 DA TA 13,23, 27, IE, 16, 3C, 3E, 00, IE, 2D, 5F, IF, 20, 30, 3D, 00,8,0261 

1020 DATA 27,2C, 3B, 00, IF, 2E, 3A,00,29, 37,2F, 00,00,00,00,00, 8,01A4 
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Auch bei diesem Befehl schweigt 1 
sich das Handbuch des CPC 464 
teilweise aus. Zwar wird die nor- 
male Anwendung des Befehles er¬ 
läutert, aber dieser BefeM ist noch 
viel stärker und mächtiger als dort 
beschrieben. Es können nämlich 
mittels dieses Befehles Teile von 
bereits existierenden Strings aus¬ 
getauscht und ersetzt werden. Ein 
entsprechendes Beispielprogramm 
zeigt allen CPC-Besitzem auf, wie 
dieser Befehl eingesetzt werden 
kann und auch was er bewirkt. 

Da das Programm aber einige 
identische und auch einige fast 
übereinstimmende Basiczeilen 
beinhaltet, wird auch gleich die 
überaus komfortable Kopiertech¬ 
nik mittels des COPY-Cursors be¬ 
schrieben. 

Diese nun aufgezeigte „Betriebs¬ 
technik“ des Befehles MID$ hat ge¬ 
genüber anderen Methoden den 
Vorteil, daß keine „Müll“-Strings 
anfallen und dadurch die von vie¬ 
len so gefürchteten Wartezeiten der 
sogenannten „Garbage collection“, 
also der „Müllstringbeseitigung“ 
während des Programmlaufes redu¬ 
ziert werden können. Da das Pro¬ 
gramm mittels der Windowtechnik 
arbeitet, können auch hier viele Le¬ 
ser nachsehen, wie diese program¬ 
miert und gehandhabt werden. Aber 
auch noch weitere kleine Kniffe 
sind in diesem Programm enthalten, 
die für andere Programme sinnvoll 
sein können. 

Die Programmbeschreibung 

In Zeile 120 wird der Mode 2, also 
auf 80-Zeichendarstellung geschal¬ 
tet. Außerdem werden gleich Varia¬ 
ble definiert, die im Programmlauf 
des öfteren auftreten. Wie zu sehen 


ist, sind zwei dieser Variablen 
Adressen von Firmware-Routinen. 
Diese Definition hat den Vorteil, 
daß man nicht bei jedem Aufruf ei¬ 
ner derartigen Routine im Firmwa¬ 
re-Handbuch nachschlagen muß, 
welche Adresse nun zu program¬ 
mieren ist. Außerdem sind während 
der Programmerstellung die Varia¬ 
blen invers oder warte leichter zu 
merken als vierstellige hexadezima¬ 
le Zahlen. 

Einmal nachgesehen im Firmware¬ 
handbuch, den Routinen leicht 
merk- und identifizierbare Namen 
zugewiesen, die ersten Basiczeilen 
damit versehen und einiges geht 
leichter. Auch das Lesen des Pro¬ 
grammes ist dadurch sehr viel einfa¬ 
cher. Ich habe mir für meine Pro¬ 
grammierarbeiten ein Grundpro¬ 
gramm erstellt, welches einige die¬ 
ser Routinen enthält. Dieses lade 
ich mir bei Programmierbeginn ein. 
Diese Methode hat für mich den 


Vorteil, daß die gebräuchlichen Na¬ 
men der Routinen immer gleich 
sind und sich mir außerdem im 
Laufe der Zeit einprägen und ich 
wesentlich schneller programmie¬ 
ren kann. Ist das Programm fertigge¬ 
stellt, wird der überflüssige Teil 
einfach wieder entfernt. 

Die Zeilen 130 und 140 legen die 
Fenster für die Ausgaben fest. Die 
erforderlichen Erklärungen können 
Sie Ihrem Handbuch entnehmen. 
Beachten Sie aber, daß in diesem 
Programm kein Window mit der 
Nummer Null definiert wurde. 

In Zeile 160 wird nun bereits der 
gesamte Bildschirm invertiert und 
auch gelöscht, denn erst dann ist 
wirklich die Invertierung (Aus¬ 
tausch der Farben für PEN und PA¬ 
PER) durchgeführt. 

Die Zeilen 170 bis 190 bewirken 
eine Textausgabe in Window Null. 
Da bei diesem Programm eine Wie¬ 
derholung gleicher bzw. stark ähnli- 
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eher Abläufe vorkommt, war es am 
einfachsten, diese Teile mittels der 
„Kopiertechnik“ zu vervielfältigen. 
Dies betrifft beispielsweise die Zei¬ 
len 200, 300, 460 oder auch 220, 
340, 480. Da ich bei vielen Gesprä¬ 
chen mit Lesern immer wieder fest¬ 
stellen konnte, daß viele CPC-Besit- 
zer diese Kopiertechnik nicht in 
vollem Umfange beherrschen, will 
ich nun, da das Programm sonst kei¬ 
ne großen Besonderheiten mehr 
beinhaltet, näher auf diese Technik 
eingehen. 

Die Kopierteihnik 

Bei normalen Arbeiten mit den 
CPC’s sieht man immer nur einen 
Cursor, der an der Stelle zu sehen 
ist, an welcher die nächsten Einga¬ 
ben erfolgen. Dieser Cursor kann 
normalerweise mittels der Cursor¬ 
steuertasten auf jede (mögliche) be¬ 
liebige Bildschirmposition gebracht 
werden. Wird dann die COPY-Taste 
betätigt, dann werden die entspre¬ 
chend unter dem Cursor stehenden 
Zeichen übernommen. Ändert man 
nun beispielsweise eine Nummer 
einer auf dem Bildschirm stehen¬ 
den Basiczeile um sie zu duplizie¬ 
ren, dann wird bei Kopierversuchen 
akustisch mitgeteilt, daß dies vom 
CPC nicht akzeptiert wird. Nun be¬ 
steht die Möglichkeit, da sich der 


Cursor ja nicht mehr nach rechts 
weiterbewegen läßt, durch Betäti¬ 
gung der RETURN- oder ENTER-Ta- 
ste diese Situation zu meistern. 

Der CPC hat aber diese Zeile nicht 
angenommen und teilt dies durch 
„Line does not exist“ mit. Dem CPC 
wurde nämlich eine Zeilennummer 
mitgeteilt, die in diesem Falle ja 
noch gar nicht existiert. Fährt man 
nun mit dem Cursor wieder auf den 
Zeilenanfang dieser Zeile und betä¬ 
tigt dann (bis zum Ende des zu ko¬ 
pierenden Teiles) die COPY-Taste, 
dann kann diese Zeile übernommen 
werden. Aber diese eben beschrie¬ 
bene Methode ist nicht die wirkli¬ 
che Kopiertechnik. Viel besser und 
auch wesentlich komfortabler ist 
die nachfolgend beschriebene Me¬ 
thode. 

Am besten ist es, wenn Sie sich ein 
kleines Programmlisting auf dem 
Bildschirm ausgeben lassen, um 
gleich praktisch alles mitvollziehen 
zu können. 

Nach der Listingausgabe steht der 
Cursor unter dem „R“ von Ready. 
Damit Sie nun nicht Ihr Listing zer¬ 
stören, geben Sie als erstes eine Zif¬ 
fer ein, die über der ersten Ziffer der 
höchsten Zeilennummer (also der 
zuletzt ausgegebenen) liegt. Wohl¬ 
gemerkt nicht eine komplette Zei¬ 
lennummer, sondern nur die erste 
Ziffer. 

Nun halten Sie die SHIFT-Taste ge- 
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drückt und betätigen die Cursor- 
Steuertaste Pfeil nach oben. Sie 
werden daraufhin feststellen kön¬ 
nen, daß nun plötzlich ein zweiter 
Cursor auf dem Bildschirm zu se¬ 
hen ist. Dies ist der COPY-Cursor. 
Solange Sie nun die SHIFT-Taste 
gedrückt halten, können Sie auch 
diesen mittels Cursorsteuerung frei 
über den Bildschirm bewegen. 
Setzen Sie diesen Copycursor nun 
z. B. auf die zweite Ziffer der letzten 
Basiczeilen-Nummer. Nun lassen 
Sie die Shift-Taste wieder los und 
betätigen die COPY-Taste. Wie Sie 
sehen, wird nun jeweils das Zei¬ 
chen unter dem Copycursor an die 
Position des Normalcursors kopiert. 
Wenn Sie dies nun bis zum Ende 
der Basiczeile durchführen, haben 
Sie mit Ausnahme der Zeilennum¬ 
mer eine völlig identische Basiczei¬ 
le auf dem Bildschirm stehen. 
Durch Betätigung der ENTER-Taste 
übernehmen Sie dann diese Basic¬ 
zeile in Ihr Programm. 

Dies ist aber nur die einfachste Art, 
dieses Kopiertechnikeinsatzes. Sie 
können nämlich auch verschiedene 
Basiczeilen oder auch Teilinhalte 
beliebig bis zur maximal erlaubten 
Zeilenlänge zusammenfügen. Sie 
brauchen lediglich wieder die 
SHIFT-Taste gedrückt zu halten 
und können nun wieder mittels der 
Cursorsteuertasten „umeinander- 
fahren“ um dann wieder an der von 
Ihnen gewünschten Stelle mit dem 
Kopiervorgang fortzufahren. 

Wenn Sie diese Technik etwas ge¬ 
übt haben, dann werden Sie von 
dieser Möglichkeit so begeistert 
sein, daß Sie bei fast allen Arbeiten 
am Computer darauf zurückgreifen. 
So z. B. auch beim Laden von Pro¬ 
grammen von Diskette, nachdem 
Sie sich das Inhaltsverzeichnis ha¬ 
ben ausgeben lassen. Die CPC-Mit- 
teilung daß ein Programm nicht ge¬ 
funden werden kann, weil man sich 
bei der Filenameneingabe vertippt 
hat, gehört damit der Vergangenheit 
an. Auch die „Verschönung“ von 
Programmlistings nach Beendigung 
der eigentlichen Programmierarbeit 
wird damit zu einem Kinderspiel. 
Übersichtliche und leicht lesbare 
Listings werden Ihnen diese kleine 
Lernmühe, die Sie anfangs erbrin¬ 
gen müssen „vergelten“. 

Lothar Miedel 
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Liistings MI D$ 


100 '#### Die String-Einfuegung mittels MID$ #**# 

110 ' 

120 MODE 2:j=10:invers=&BB9C:warte=&BB06:t$=" Bitte eine Taste druecken" 

130 UINDOU Ul, 1,80,1,8:UINDOU 02,1,80,25,25 
140 UINDOU 03,1,80,11,24:UINDOU 04,1,80,5,9 
150 ' 

160 CALL invers:CLS00 

170 PRlNT n Dieses Programm zeigt, wie mittels der MID$-Funktion, Teile von 
160 PRINT"von existierenden Strings ersetzt werden koennen. 

190 PRINT"Diese Moeglicbkeit ist im Handbuch des CPC 464 nicht beschrieben. " 
200 CLS02:PRINT02,t$:CALL warte:CLS #3 

2i0 -- 

220 CLS 02:CLS 04:PRINT03,, 1:PR1NT03, "Beispiel 1:" 

230 PRINT03, "Ausgangsstring”, "lnsertstring",, "Ergebnisstring" 

240 ' 

250 CLS04:PRINT #4, "Voraussetzungen und Funktion: 

260 PRINT #4, "x$=’ '**************" :b$="abc' • 

270 PRINT «4, "PRINT x$,b$,, I :MID$(x$,3,3)=b$:PRINT x$ 

260 ' 

290 x$="**************":b$="abc" 

300 PRINT03, x$, b$,, / :MJD$(x$, 3, 3)=b$:PRlNT03, x$ 

310 • 

320 CLS02:PRINT02,t$:CALL wartetCLS *3 

330 - - 

340 CLS02:CLS 04:PRINT03,, / :PRINT03, "Beispiel 2:" 

350 PRINT03, "Ausgangsstring", "lnsertstring",, "Ergebnisstring" 

360 ' 

370 CLS04:PRINT 04, "Voraussetzungen und Funktion: 

380 PRINT 04, "x$=''####**#******#'':FOR i = 1 TO j 
390 PRINT 04,"xl$=x$:x2$=RIGHT$(STR$(INT(RND*9+1)), 1) 

400 PRINT 04,"MID$(xl$,i,l)=x2$:PRINT x$, x2$, ,xl$:NEXT I 
410 ' 

420 x$="#******«******":FOR i = 1 TO j 
430 xl$=x$:x2$=RIGHT$(STR$(INT(RND*9+1)), 1) 

440 MID$(xl$, i, 1 )=x2$:PR1NT03,x$,x2$, ,xl$:NEXT i 
450 ' 

460 CLS02:PRINT02,t$:CALL warte:CLS 03 

470 ' -- 

480 CLS02:PR1NT03,, ;:PRINT03, "Beispiel 3:" 

490 PR1NT03, "Ausgangsstring", "lnsertstring",, "Ergebnisstring" 

500 ' 

510 CLS04:PR1NT 04, "Voraussetzungen und Funktion: 

520 PRINT 04,"x$ => '*»************'':FOR i = 1 TO j 

530 PRINT 04, n x=lNT(RND*9*l):xl$=RIGHT*(STR$(x), 1):PRINT x$,xl$,,;: 

540 PRINT 04,"MID$(x$,x, l)=xl$:PRlNT x$:NEXT i 
550 ' 

560 x$="*********#*#**":FOR i = 1 TO j 

570 x=INT(RND*9+l) :xl$=RIGHT$(STR$(x), 1) :PRINT03,x$,xl$,, ! 

580 MID$(x$,x, l)=xl$:PRINT03,x$:NEXT i 

590 CLS02:PRINT02,t$:CALL warte:CALL invers:CLS 00 
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DE($ auf dem (PC 464 


Obwohl dem Schneider-CPC-464 
allerseits Lobeshymnen bezüglich 
seines starken Basic-Befehlssatzes 
gesungen werden, darf nicht ver¬ 
gessen werden, daß kleine Miß¬ 
klänge bei der „Melodie ” mit- 
schwingen können . So gut die Pro¬ 
grammierer der Firmware auch ge¬ 
arbeitet haben, kleine und durch¬ 
aus vermeidbare Flüchtigkeitsfeh¬ 
ler sind leider im Basicinterpreter 
vorhanden . Verschiedene, mir be¬ 
reits bekannte Fehler wurden dann 
bei den Nachfolgemodellen wieder 
„ausgebügelf 9 . Dies Iccziui dann be¬ 
reits zu Kompatibilitätsproblemen 
führen. 

Einige kleine Fehler sind nie so 
richtig bekannt geworden. Bei¬ 
spielsweise kann es bei verschach¬ 
telten Schleifen und der vorherigen 
Festlegung der Lauf variablen durch 
DEFINT Vorkommen, daß das 
Schleifenziel überlaufen wird. Das 
gleiche Programm läuft aber auf 
dem CPC 664 und CPC 6128 völlig 
fehlerfrei. Es ist also durchaus mög¬ 
lich, daß trotz vermeintlicher syn¬ 
taktisch richtig eingesetzter Befehle 
das Programm auf einem CPC 464 
nicht korrekt abläuft, auf den bei¬ 
den „Brüdern“ aber völlig problem¬ 
los „spielt“ und zu richtigen Ergeb¬ 
nissen führt. Im obengenannten 
„Schleifenproblem“ half bereits das 


Weglassen der DEFINT-Anweisung. 
Wer auf derartige Probleme stößt, 
sollte um anderen CPC-Besitzern 
mühevolles Suchen zu ersparen, 
solche kleinen „bugs“ und am be¬ 
sten natürlich auch die Abhilfe, der 
einen oder anderen Fachzeitschrift 
mitteilen, damit durch deren Veröf¬ 
fentlichung die Informationen ei¬ 
nem möglichst großen Kreis von 
CPC-Besitzern bekannt werden. 
Aber auch andere „Problemchen“ 
sind noch nicht ausreichend be¬ 
kannt, weshalb ich hier gleich auf 
den ersten Punkt dieser Art eingehe. 
Wenn man sich so wie ich, näher 
mit den CPC’s beschäftigt, läßt man 
sich irgendwann auch einmal den 
gesamten Befehlssatz des CPC’s aus¬ 
geben und stößt dann auch auf Be¬ 
fehle, die entweder im Handbuch 
überhaupt nicht aufgeführt sind, 
oder aber nur unzureichend erklärt 
werden. 

DEC$ ist einer dieser Befehle. Im 
CPC-464-Handbuch ist er zwar 
nicht aufgeführt, bei genauerer Be¬ 
trachtung des Interpreterteiles aber 
ist er zu finden. 

Für Profis: 

In der TOKEN-Tabelle steht er als 
Befehlswort ab &E5E6. Der entspre¬ 
chende Maschinenprogrammteil 
dieser Funktion ist ab &F8EA zu 


finden. Lange Zeit wurde auch her- 
umgerätselt, was dieser Befehl soll 
und kann. Fast alle Versuche führ¬ 
ten aber zur Meldung: SYNTAX ER¬ 
ROR. Aber wie schon gesagt, der 
Befehl ist vorhanden, aber leider 
muß dieser syntaktisch falsch einge¬ 
setzt werden. Nun aber erst einmal 
zur Klärung, was der Befehl eigent¬ 
lich bewirkt. Er ermöglicht die for¬ 
matierte Ausgabe von Dezimalzah¬ 
len, wodurch ohne großen Aufwand 
zum Beispiel bei Tabellen auch alle 
Zahlen stellenrichtig untereinander 
ausgegeben werden können. Dieser 
Befehl ist auf allen CPC’s vorhan¬ 
den, muß aber beim CPC 464 mit 
einer öffnenden Klammer mehr ver¬ 
sehen werden als eigentlich erfor¬ 
derlich. Wie dieser Befehl zum Ein¬ 
satz kommen kann, zeigt das nach¬ 
folgende kleine Programmlisting 
anhand zweier Beispiele sehr deut¬ 
lich. Besitzer der CPC 664 und 6128 
brauchen die erste „öffnende“ 
Klammer nach dem Befehlswort 
DEC$ in den Zeilen 250 und 300 
nur wegzulassen, dann läuft dieses 
Demoprogramm auch auf diesen 
Rechnern. Andererseits brauchen 
CPC-464-Besitzer bei Programmen 
für den CPC 664 oder 6128 nur eine 
zusätzliche Klammer einzufügen 
und haben dann ein derartiges Pro¬ 
gramm auch für ihren Computer an¬ 
gepaßt. Lothar Miede1 


Der Befehl DEC i ist in alJlen CPC-Computern vorhanden. Leider ist 
iH Betriebssystem des CPC 464 ein Fehler, wodurch dieser Befehl 
bei diesen Computer syntaktisch falsch angewendet werden nuss. 
Der CPC 464 verlangt oeffnend eine Klammer mehr als schliessend! 
Das nachfolgende kleine BeispielProgramm zeigt, wie es klappt: 


Beispiel 1: 

Die Zahl x: 

271.940658 

528.612386 

21.330127 

175.138616 

657.773343 

xt durch DECt gesonnen: 

271.9407 

528.6124 

21.3301 

175.1386 

657.7733 

Hardcopy des Programm- 
laufes. Durch DEC$ können 
Zahlen formatiert 
ausgegeben werden. 

Beispiel 2: 



Die Zahl 123.22 

123.2200 



Der Befehl erlaubt also eine formatierte Ausgabe ! 
Bitte auch nachsehen unter : PRINT USING 
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Allgemeines 


Listings Der Befehl DEC$ auf dem CPC 464 


100 REM #################*####*##*######### 

110 REM # Der Befehl DEC$ auf dem CPC 464 # 

120 REM ################*###*##**#*#**####* 

130 1 

140 MODE 2:PRlNT"Der Befehl DEC$" :PRINT 

150 PRINT"Der Befehl DEC$ ist in allen CPC-Computern vorhanden. Leider ist 
160 PRINT"im Betriebssystem des CPC 464 ein Fehler, wodurch dieser Befehl 
170 PRINT"bei diesem Computer syntaktisch falsch angewendet werden muss. 
180 PRlNT”Der CPC 464 verlangt oeffnend eine Klammer mehr als schliessend! 
190 ' 

200 PRINT"Das nachfolgende kleine Beispielprogramm zeigt, wie es klappt: 
210 PRINT:PRlNT"Beispiel 1 : 

220 PRINT" Die Zahl x:" f , "x$ durch DEC$ gewonnen:”:PRINT 
230 ' 

240 FOR i = 1 TO 5 

250 x=RND(1)*1000:PRINT x,,1:x$=DEC$((x, "«**.*#**"):PRINT x$ 

260 NEXT i 
270 ' 

280 PRINT :PR I NT "Be i spiel 2: 

290 PR INT :PRINT”Die Zahl 123.22";: 

300 x$=DEC$( <123.22, "###. ####"; : PR INT, x$ 

310 ' 

320 ' 

330 PRINT:PRlNT"Der Befehl erlaubt also eine formatierte Ausgabe ! 

340 PRINT"Bitte auch nachsehen unter : PRINT US1NG 
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Quint - Ein Spiel 
mit dem Joystick 


Eigentlich ist unser Ansinnen ja 
nicht , Ihnen Listings über Spiele 
abzudrucken. Daß wir es doch ge¬ 
macht haben, hat verschiedene 
Gründe . Denken Sie nur einmal an 
Ihre Bekannten und Verwandten, 
denken Sie aber auch daran sich 
einmal etwas zu entspannen. Der¬ 
artige Programme zeigen, wenn sie 
nicht gerade in Maschinensprache 
geschrieben sind, viele Program- 
mier-Tricks die man gut in eigenen 
Programmen einsetzen kann. 

Mit ca. vier Seiten Listing und noch 
etwas Text, hoffen wir, daß wir in 


Ihren Augen den Spieleteil nicht zu 
umfangreich gemacht haben. Aber 
ab und zu sollten Sie bei aller Ernst¬ 
haftigkeit der Programmierarbeiten 
auch einmal etwas entspannen. 
Hierzu eignet sich ein Spiel be¬ 
stimmt. Spielen Sie aber nicht 
gleich in der höchstmöglichen 
Spielstufe, denn sonst bewirken Sie 
genau das Gegenteil, dann wird es 
„echt streßig“, auch bei diesem 
Spiel. Also „klein“ anfangen, wenn 
Sie entspannen wollen und ... vor 
allem auch wieder rechtzeitig auf¬ 
hören! Sonst sind Sie bald in Rich¬ 
tung Las Vegas unterwegs, um Ihrem 


Spieltrieb zu frönen. Mit diesem 
Spiel haben Sie aber vielleicht auch 
die Möglichkeit, Ihre Fmilienange- 
hörigen an den Computer zu locken, 
die bisher nicht verstanden, was Sie 
an Ihrem Computer so begeistert. 
Da der CPC keine „eingebauten“ 
Spritemöglichkeiten hat, können 
diese erst durch Zusatzprogramme 
ermöglicht werden. Programmver¬ 
öffentlichungen hierüber sind in 
verschiedenen Zeitschriften bereits 
erfolgt. 

Wer sich also darüber informieren 
will, braucht nur etwas zeitlich zu¬ 
rückliegende F achzeitschriften 

durchzublättern. Aber auch in zu¬ 
künftigen Artikeln der verschieden¬ 
sten Publikationen wird dieser The¬ 
matik bestimmt noch genügend 
Platz eingeräumt. 

Das in diesem Heft abgedruckte Pro¬ 
gramm kommt ohne Sprites aus und 
ist trotzdem optisch sogar anspre¬ 
chend. Wo die Tricks dieses Spieles 
liegen, bzw. wie die „Spielfiguren“ 
erzeugt werden, sollten Sie sich 
nach einem Abbruch des Program¬ 
mes einmal im Listing ansehen. Be¬ 
stimmt gibt Ihnen diese Art der Pro¬ 
grammierung Anregungen, die Sie 
auch bei anderen Programmen sehr 
gut verwenden können. Das Listing 
enthält die komplette Bedienungs¬ 
anleitung. Wer keinen Joystick be¬ 
sitzt kommt um ein Umschreiben 
des Programmes oder den Kauf ei¬ 
nes derartigen Eingabemediums 
nicht herum. Jens Kriese/LM 







£ 198S by Jens Kriese 

Sie befinden sich in einem alten Schloss 
und haben die Aufgabe,.einen versteckten 
Sch luessei und damit eine Zaubervase zu 
finden. 

In einer Mauer <gekennzeichnet mit 
'SUCHE HIER ) werden Sie den Schluessel 
finden. Daraufhin erscheint die Vase, 
die es zu erreichen gilt... 

Doch leider werden Sie.von fallenden 
Steinen und kleinen Geistern gestoert... 

Druecke Taste ... 


Li sting : QUINT - Ein Spiel mit Joysticksteuerung 


100 ON ERROR GOTO 2170 
110 ON BREAK GOSUB 2110 

120 dat =0:st=0:Q=0:MODE 1:D1M hs$(16):DIM hsdat$(16) :DIM hs(16) 
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130 FOR 1=1 TO 16:hst(i)="JENS KRIESE”:hsdat$(i) = ”120485”:hs(i)=0:NEXT 
140 m$=CHR$(248):D!M x(41,25) 

150 pu=0 

160 INK 2,10,20: INK 1,17t INK 3,26:G0SUB 580:GOSUB 1070 
170 Dl:aox=10:moy=24:uox=30:uoy=24:FOR i=l TO 24:L0CATE 1,1 
180 PRINT” ”;:NEXT 

190 LOCATE 11,12sPEN 2:PRINT”EINEN MOMENT BITTE!”;:PEN 1 
200 t=24isch!=0:st=st+l 

210 FOR i=l TO 40:FOR ii=l TO 24:x(i, i i )=0:NEXT:NEXT 
220 FOR 1= 2 TO 24 

230 LOCATE 12,25:PR1NT" STUFE”ist;” ”:LOCATE 26,25:PRlNT”PUNKTE:”;puf 

240 FOR ii= 1 TO st/2*RND(1)*1.4+1:x(RND(l)*39+1,1)=1:NEXT:NEXT 

250 LOCATE 11,12: PR INT” ”i 

260 FOR i= 2 TO 24:F0R ii= 1 TO 40 

270 IF x(ii,i)=l THEN LOCATE ii, i :PRINT”]”} 

280 NEXTiNEXT 

290 LOCATE l,l:PEN 3:PRINT”[[[t[l[11C1111ISUCHECHIERI[111111C111111”/:PEN 1 
300 t=1011-st*10 
310 : 

320 ax=INT(RND(1) *30+9) :my= INT(RND(1) *9+15) 

330 vx=INT(RND(l)*30+9) •' vy=INT(RND(l)*14+9) :x(vx, vy)=0 
340 sl = INT (RND (1) *20+10) 

350 IF schl=l AND mx=vx AND ay=vy THEN 560 
360 LOCATE mx,ay:PEN 3:PRINT m$;:PEN 1 
370 El:EVERY 50 GOSUB 930 
380 : 

390 GOSUB 450 

400 1F nx=sl AND my=l THEN GOSUB 540 

410 IF schl=l AND mx=vx AND my-vy THEN GOTO 560 

420 IF RND(1)>0.96 AND st>2 THEN GOSUB 660 

430 IF st>5 THEN GOSUB 700 

440 GOTO 380 

450 : 

460 DI:mxl=mx:myl=my 

470 IF JOY(0)=1 AND x(ax,my-l)=0 AND my>=2 THEN my=my-l:GOTO 520 
480 IF JOY(0)=2 AND x(mx,my+l)=0 AND my<=23 THEN my=my+l:GOTO 520 
490 1F JOY(0)=4 AND x(mx-l,my)=0 AND ax>=2 THEN mx=mx-l :GOTO 520 
500 IF JOY(0) =8 AND x(mx+l,my)=0 AND ax<=39 THEN mx=mx+l .‘GOTO 520 
510 El:RETURN 
520 : 

530 DI:LOCATE mxl,myl:PRINT” ";:LOCATE mx,my:PEN 3:PRINT a$;:PEN 1:El:RETURN 
540 : 

550 LOCATE vx,vy:PEN 2:PRINT”\” ;CHR$(7) ; :PEN 1: sch 1-1: RETURN 
560 : 

570 pu=pu+t:GOTO 170 
580 : 

590 SYMBOL AFTER 90 

600 SYMBOL 93,62,127,127,255,255,255,255,126 
610 SYMBOL 91,239,239,239,0,254,254,254,0 
620 SYMBOL 92,126, 189, 189, 126, 60, 24,24, 126 
630 SYMBOL 123,124,254,214,254,254,127,127,85 
640 SYMBOL 125, 30, 127,107,127, 127,254, 254,170 
650 RETURN 
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660 : 

670 stx=INT(RND(l)*38+l):sty=INT(RND(l)*22+l):lF sty=l THEN RETURN 

680 IF stx s vx AND sty=vy THEN RETURN 

690 x(stx, sty) s l HOC ATE stx, sty:PRINT"l”;‘.RETURN 

700 : 

710 IF st>8 THEN GOSUB 820 
720 maxi=mox:moyl=moy 

730 IF INT(mox)<mx THEN aox=mox+(st/50):GOTO 770 
740 IF INT(aoy)<my THEN moy=may+ (st/50) .‘GOTO 770 
750 IF INT(mox)>ax THEN mox=aox- (st/50) .‘GOTO 770 
760 IF INT(aoy)>ay THEN moy=moy- (st/50) ‘.GOTO 770 

770 IF INT(aox) s vx AND INT(moy) s vy THEN aox-aoxl tmoy-moyl :EI: RETURN 
780 x(mox, moy)=0:DI ’.LOCATE INT(moxl), INT(aoyl) 

790 PRINT" "XLOCATE INT(aox), INT(aoy) :PEN 3:PRINT n I "} .‘EI .‘PEN 1 
800 IF lNT(aox)=ax AND INT(moy)-my THEN 950 
810 RETURN 
820 : 

830 uoxl s uoxiuoyl=uoy 

840 IF INT(uoy)>ay THEN uoy=uoy-(st/50) .‘GOTO 880 
850 IF INT(uox)<mx THEN uox=uox+ (st/50) .‘GOTO 880 
860 IF INT(uox)>ax THEN uox=uox-(st/50) .‘GOTO 880 
870 IF INT(uoy)<ay THEN uoy-uoy*(st/50):GOTO 880 

880 IF INT(uox)=vx AND INT(uoy) s vy THEN uox-uoxl >‘uoy=uoyl :E1:RETURN 
890 x(uox, uoy)=0 

900 LOCATE INT(uoxl), INT(uoyl) :PRINT" n ; :LOCATE INT(uox), INT(uoy) :PEN 3 
910 PRINT M ( n I iPEN 1: IF INT(uox)=ax AND INT(uoy)=my THEN 950 
920 RETURN 
930 : 

940 T=T-1‘.LOCATE 1,25.‘PRINT n ZEIT:"iTi” :RETURN 

950 : 

960 DI:CLS:GOSUB 1090:PR INT 

970 IF pu<10000 THEN PRINT"Na ja, sehr beruehmt war das nicht . "XGOTO 1000 

980 IF pu<15000 THEN PRINT n Das war schon eine sehr gute Leistung ... ”}:GOTO 1000 
990 IF pu<20000 THEN PRINT-S U P E R! Eine echte Spitzenleistung..."; 

1000 PRINTiPRINT"Sie haben "Ipul" Punkte erreicht." 

1010 FOR i=l TO 15:IF pu>hs(i) THEN GOSUB 1710 

1020 NEXT:PRINT:PRINT"UoIlen Sie weiterspielen ? (j oder n)" 

1030 k$=INKEY$ 

1040 IF k$="j" OR k$="J" THEN 150 
1050 IF kt="n" OR k$="N" THEN GOTO 2110 
1060 GOTO 1030 
1070 : 


1080 CLS:PEN 

’ 1 

:GOSUB 

1090.‘GOTO 1180 



1090 PRINT" 

[[[[[ 

!! 

[[ 

[[ 

[[ 

[[ 

[[[[[[ 

1100 PRINT" 

!! 

!! 

!! 

[[ 

[[ 

[[[ 

ll 

[[ 

1110 PRINT" 

!! 

!! 

!! 

!! 

[[ 

[[ [ 

[[ 

[[ 

1120 PRINT" 

!! 

!!! 

!! 

!! 

[[ 

[[ 

[[[ 

[[ 

1130 PRINT" 

[[[[[ 

[[[[[ 

[[ 

[[ 

[[ 

[[ 

1140 PRINT 









1150 PRINT"! 


\ 


";CHR$(250);" 

{ 

{ 


1160 PR1NT"[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[["; 
1170 RE TURN 
1180 LOCATE 1,10 
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1190 PRINT" "{CHR$(164)f" 1985 by Jens Krlese" 

1200 PRINT 

1210 PRINT"Sie befinden sich in einem alten Schloss"l 
1220 PRINT"und haben die Aufgabe, einen versteckten"! 

1230 PRINT"Schluessei und damit eine Zaubervase zu "! 

1240 PRINT"finden. "1 

1250 PRINT 

1260 PRINT"ln einer Mauer (gekennzeichnet mit "! 

1270 PR INT"'SUCHE HIER') werden Sie den Schluessel "! 

1280 PRlNT"finden. Daraufhin erscheint die Vase, "! 

1290 PRINT"die es zu erreichen gilt... "! 

1300 PRINT 

1310 PRINT"Doch leider werden Sie von fallenden "! 

1320 PRINT"Steinen und kleinen Geistern gestoert..."! 

1330 LOCATE l,25:PRINT"Druecke Taste ..." 

1340 1F 1NKEY$="" THEN 1340 
1350 IF dat=0 THEN GOSUB 1540 
1360 LOCATE 1,10 

1370 PRINT"Die Kontrolle erfolgt ueber Joystick 0. "! 

1380 PRINT" "I 

1390 PRINT"Die fallenden Steine: J "! 

1400 PRINT" 

1410 PRlNT"Die Zaubervase: "i 

1420 PEN 2:PRINT"\"! :PEN l:PRINT" ”! 

1430 PRINT" "t 

1440 PRINT"Die Geister : "i 

1450 PEN 3: PR INT"! {";:PEN 1:PR1NT" "> 

1460 FOR i=l TO 9 

1470 PRINT" ";:NEXT 

1480 LOCATE 1,20:PRINT"Uaehlen Sie bitte Ihre Spielstaerke "! 

1490 INPUT"(0 bis 30) >"!sps 

1500 IF sps<0 OR sps>30 THEN 1360 

1510 st-sps-1 

1520 LOCATE 1,25:PR1NT" ”> 

1530 RETURN 
1540 : 

1550 LOCATE 1,10 


1560 PRINT"Uichtig fuer das High-Score: 

1570 PRINT” "1 

1580 PRINT"1 = Neue Datei "I 

1590 PRINT"2 = Datei besteht bereits "! 

1600 FOR i=l TO 11:PRINT" "i'-NEXT 

1610 a$=INKEY$ 

1620 IF a$="l" THEN dat=l:RETURN 
1630 IF a*<>"2" THEN 1610 


1640 LOCATE 1,15:PRINT"Bitte legen Sie die Cassette/Disk mit" 
1650 PRINT"lhren High-Score-Uerten ein und druecken" 

1660 PRINT"Sie (PLAY) eine Taste... ” 

1670 IF INKEY$="" THEN 1670 

1680 OPENIN"!quinthi":FOR i= 1 TO 15 

1690 INPUT 49, hs$(i): INPUT 49,hsdat$(i):INPUT 49,hs(i) 

1700 NEXT: CLOSEIN:RETURN 
1710 : 
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1720 i=15: LOCATE 1,12:F0R m=l TO 50:n$=INKEY$:NEXT 

1730 PRINT" ";: lNPUT n NAME: ";na$ 

1740 lNPUT"Datum (z.B.230185) :”;dat$ 

1750 INPUT"Abspeiehern (j oder n)"ix$:JF x$= n n" OR x$="N" THEN Q=1 
1760 LOCATE 1,12:1F Q=1 THEN 1610 

1770 PRINT"Bitte legen Sie zum abspeichern Ihres "! 

1760 PRINT"High-Scores eine Cassette/Disc ein und "; 

1790 PRINT"druecken (REC und PLAY) dann eine Taste."; 

1800 PRINT" "; 

1810 FOR 1=1 TO 15 

1820 IF pu>=hs(l) THEN GOTO 1840 

1830 NEXT 

1840 FOR il=15 TO 1+1 STEP -1 

1850 hs(ii)=hs(ii~l)ths$(ii)=hs$(ii-1):hsdat$(ii)=hsdat$(ii-1) 

1860 NEXT 

1870 hs(l)=pu:hsdat$(l)=dat$thst(l)=na$ 

1880 IF Q=1 THEN 1930 

1890 IF INKEY$="" THEN 1890 

1900 OPENOUT"!quinthi":FOR 1=1 TO 16 

1910 PRINT 49, hs$(l) : PR INT §9, hsda t$(l) : PR INT 49,hs(l) 

1920 NEXT:CLOSEOUT 
1930 dat=l:Q=0 
1940 LOCATE 1,1 

1950 PR1NT"H1GH tlilt [[[[ [[[ [[[[ [[[[[ 

1960 PRINT" [ [ [ [ [ [ [ "; 


1950 PR1NT"H1GH [[[[[ [[[[ [[[ [[[[ [[[[[ "} 

1960 PRINT" [ [ [ [ [ [ [ "; 

1970 PRINT" [[[[[ [ [ [ [[[[[ [[[[ 

1980 PRINT" [ [ [ [ [ [ [ 

1990 PRINT" [[[[[ [[[[ [[[ [ [ [[[[[ 

2000 PRINT" 

2010 LOCATE 1, 7 :PRINT"Platz Name Punkte Datum ", 

2020 PRINT" 

2030 FOR 1=1 TO 15 

2040 LOCATE 1,9+1:PR INT USING "44";li 
2050 PRINT" 

2060 LOCATE 7,9+] .‘PRINT LEFT$(hs$( 1), 19) ; 

2070 LOCA TE 27,9+1: PR INT hs(l); 

2080 LOCATE 35,9+1 :PRINT LEFT$(hsdatS(1),6 )/ 

2090 NEXT 

2100 FOR i=l TO 6000:NEXT:CLS:LOCATE 1,12:RETURN 
2110 : 

2120 CLS:LOCATE 1,12:PRINT"Unerlaubter Abbruchversuch," 

2130 PRINT"Programmabbruch oder":PRINT"ProgrammfehIer." 

2140 PRINT'.PRINT CHR$(164)1985 by Jens Kriese" 

2150 FOR i= 1 TO 50:NEXT 
2160 END 

2170 CLS:LOCATE 1,12:PRINT"Fehlermeldung! -uarscheinlich. BANDFEHLER"; 
2180 FOR i=l TO 3000:NEXT 
2190 RUN 
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Anhang 


Auf* s-bei 1 ung : Vergleichstabelle der CPC-Systemadressen 


Fragezeichen bei den Geraetetypen bedeuten , dass bisher keine entsprechenden 
Vergleichsadressen gefunden wurden, 

Fragezeichen bei der Funktion bedeuten, dass der Sinn dieser Speicherstellen 
noch nicht eindeutig erkannt wurde . 

Speicherstellen deren Adressen bei den drei CPC* s uebereinstimmen, wurden nur 
in wenigen Ausnahmefaellen in die Tabelle aufgenommen, L, Miedel 



464 

664 

6128 

Funktion 


ABQ0 

A67C 

A67C 

HI HEM DEFAULT 


ABFF 

B0FF 

B0FF 

DEFAULT UPPER ROM BOUNDARY 

-1 

AC00 

AC00 

AC00 

FLAG IGNORE BLANKS 


ACIC 

AC01 

AC01 

FLAG FOR AUTO 


AC1D 

AC02 

AC02 

NEU LINE 0 


AC1F 

AC04 

AC04 

STEP FOR AUTO 


AC21 

AC06 

AC06 

OUTPUT CHANNEL 0 


AC22 

AC07 

AC07 

INPUT CHANNEL 0 


AC23 

AC08 

AC08 

POS PRINTER 


AC24 

AC09 

AC09 

UIDTH FOR PRINTER 


AC25 

AC0A 

AC0A 

POS (TAPE) 0 OF CHARS 


AC26 

AC0C 

AC0C 

FLAG FOR FIRST FOR NEXT 


AC27 

AC0D 

AC0D 

STORE FOR NEXT VARIABLE 1 


AC29 

ACH 

ACH 

STORE FOR NEXT VARIABLE 2 


AC2C 

AC12 

AC12 

ADRESS FOR NEXT LB 


AC2D 

AC13 

AC13 

ADRESS FOR NEXT HB 


AC2E 

AC14 

AC14 

USED BY UHILE/UEND 


AC30 

AC16 

AC16 

USED BY ON 


AC31 

AC17 

AC17 

USED BY ON 


AC32 

AC18 

AC18 

99999 


AC33 

AC19 

AC19 

????? 


AC34 

AC1A 

AC1A 

LINE 0 FOR ON BREAK GOSUB 

(1) 

AC35 

AC1B 

AC1B 

LINE 0 FOR ON BREAK GOSUB 

( 2 ) 

AC36 

ACIC 

ACIC 

BASIC PC ON BREAK 


AC38 

AC1E 

AC1E 

SOUND CHANNEL 01 (BIT 0) 


AC44 

AC2A 

AC2A 

SOUND CHANNEL 02 (BIT 1) 


AC50 

AC36 

AC36 

SOUND CHANNEL 03 (BIT 2) 


ACSC 

AC42 

AC42 

TIMER BLOCK 00 


AC62 

AC48 

AC48 

IM EVENT BLOCK 00 


ACA4 

AC8A 

AC8A 

EDIT BUFFER 


ADA6 

AD8C 

AD8C 

ERROR ADRESS 


ADA8 

AD8E 

AD8E 

PC ON ERROR BREAK 


ADAA 

AD90 

AD90 

LAST BASIC ERROR 0 


ADAB 

AD92 

AD92 

CONTINUE POINTER 


ADAD 

AD94 

AD94 

BASIC PC ON STOP OR END 


ADAF 

AD96 

AD96 

ON ERROR ADRESS 


ADB1 

AD98 

AD98 

FLAG ON ERROR 


ADB2 

AD99 

AD99 

SOUND CHAN-STAT 


ADB3 

AD9A 

AD9A 

SOUND VOL-ENV 


ADB4 

AD9B 

AD9B 

SOUND TON-ENV 


ADB5 

AD9C 

AD9C 

SOUND PERJOD 


ADB7 

AD9E 

AD9E 

SOUND NOISE 



ADB8 

AD9F 

AD9F 

SOUND VOLUME 

ADB9 

ADA0 

ADAB 

SOUND TIME 

ADBB 

ADA2 

ADA2 

ENVELOPE TABLE ADRESS 

ADBC 

AD A3 

ADA3 

SOUND ENVELOPE ADRESS 

ADCB 

ADB2 

ADB2 

FAC USED BY POUER 

ADD0 

ADB7 

ADB7 

TABELLE SKALARE VARIABLE 

AE04 

ADEB 

ADEB 

TABELLE FOR FN 

AE06 

ADED 

ADED 

TABELLE FOR ARRAYS 

AE26 

AE0D 

AE0D 

????? 

AE27 

AE0E 

AE0E 

POINTER TO BASIC STACK 

AE29 

AE 10 

AE 10 

POINTER TO FN SUBPROG (1) 

AE2B 

AE12 

AE12 

POINTER TO FN SUBPROG (2) 

AE2D 

AE14 

AE 14 

SAVE FOR SEMIKOLON ON PRINT 

AE2E 

AE IS 

AE IS 

LAST DATA LINE 0 

AE30 

AE1 7 

AE17 

POINTER TO NEXT DATA 

AE32 

AE 19 

AE 19 

TEMP STORAGE BASIC STACK POINTER 

AE34 

AE1B 

AE1B 

PROGRAMM COUNTER ON RUN 

AE36 

AE1D 

AE1D 

BASIC PROG COUNTER PC 

AE38 

AE1F 

AE1F 

FLAG TRON/TROFF 

AE39 

AE20 

AE20 

FLAG USED ASSEMBLING A BASIC LINE 

AE3A 

AE21 

AE21 

BASIC PROG LINE FORMAT 

AE3B 

AE22 

AE22 

USED BY DELETE LINE 0/LOUER ADR 

AE3D 

AE24 

AE24 

USED BY DELETE LINE 0/UPPER ADR 

AE3F 

AE26 

AE26 

LOAD POINTER UH ILE LOAD 

AE41 

AE28 

AE28 

LOAD MERGE FLAG 

AE42 

AE29 

AE29 

LOAD/CHAIN FLAG 

AE43 

AE2A 

AE2A 

USED BY LOAD CHAIN 

AE45 

AE2C 

AE2C 

FLAG FILE READ PROTECTED 

AE46 

AE2D 

AE2D 

NUMBER EDIT BUFFER (1) 

AE53 

AE3A 

AE3A 

NUMBER EDIT BUFFER (2) 

AE58 

AE3F 

AE3F 

NUMBER EDIT BUFFER (3) 

AE67 

AE4E 

AE4E 

NUMBER EDIT BUFFER INDEX (1) 

AE68 

AE4F 

AE4F 

NUMBER EDIT BUFFER (4) 

AE69 

AE50 

AES0 

NUMBER EDIT BUFFER INDEX (2) 

AE6E 

AE52 

AE52 

TEMP STORE FOR CHAR 

AE6F 

AES3 

AE53 

IM BUFFER UMUANDLUNG ASCH 

AE70 

AE54 

AE54 

NUMBER EDIT BUFFER INDEX (3) 

AE72 

AE55 

AESS 

ADRESS OF CALLED ROUTINE 

AE74 

AE57 

AE57 

ROM SELECTION ON CALL 

AE75 

AE58 

AES8 

SAVE HL ON CALL 

AE77 

AE5A 

AESA 

SAVE SP ON CALL 

AE79 

AESC 

AESC 

ZONE FOR TAB 

AE7A 

AESD 

AESD 

FLAG FOR PRINT USING 

AE7B 

AESE 

AESE 

POINTER HIMEM FOR BASIC 

AE7D 

AE60 

AE60 

POINTER HIMEM FOR SYMBOL AFTER 

AE7F 

AE62 

AE62 

POINTER LOU MEMORY BOUNDARY 

AE81 

AE64 

AE64 

POINTER START OF BASIC-PRG -1 

AE83 

AE66 

AE66 

POINTER END OF BASIC-PRG 

AE85 

AE68 

AE68 

POINTER START VAR TABLE 

AE87 

AE6A 

AE6A 

POINTER START DIM r D VAR 

AE89 

AE6C 

AE6C 

POINTER UPPER END DIN 

AE8B 

AE6F 

AE6F 

START OF BASIC STACK 

B08B 

B06F 

B06F 

POINTER BASIC STACK 

B091 

B075 

B07S 

TAPE BUFFER FLAG 

B092 

B076 

B076 

POINTER TAPE BUFFER/LOUER END 

B094 

B078 

B078 

POINTER TAPE BUFFER/UPPER END 









B096 

???? 

???? 

B098 

B07A 

B07A 

B09A 

B07C 

B07C 

B09C 

B07E 

B07E 

B0BA 

B09C 

B09C 

B0BD 

???? 

???? 

B0BF 

???? 

???? 

B0C1 

B09F 

B09F 

B0C2 

B0A0 

B0A0 

B0C3 

B0A1 

B0A1 

B0C4 

B0A2 

B0A2 

B0C5 

B0A3 

B0A3 

B100 

B82D 

B82D 

Bl 01 

B82E 

B82E 

B102 

B82F 

B82F 

Bl 04 

B831 

B831 

B105 

B832 

B832 

B187 

B8B4 

B8B4 

Bl 89 

B8B6 

B8B6 

B18B 

B8B8 

B8B8 

B18C 

B8B9 

B8B9 

B18E 

B8BB 

B8BB 

Bl 90 

B8BD 

B8BD 

Bl 92 

B8BF 

B8BF 

Bl 93 

B8C0 

B8C0 

B194 

B8C1 

B8C1 

Bl 95 

B8C2 

B8C2 

Bl 96 

B8C3 

B8C3 

B1A6 

B8D3 

B8D3 

???? 

???? 

B8D5 

B1A8 

B8D5 

B8D6 

B1A9 

B8D6 

B8D7 

B1AB 

B8D8 

B8D9 

B1AA 

B8D9 

B8DA 

B1C8 

B7C3 

B7C3 

B1C9 

B7C4 

B7C4 

Bl CA 

B7C5 

B7C5 

Bl CB 

B7C6 

B7C6 

B1CC 

B7C7 

B7C7 

Bl CD 

B7C8 

B7C8 

Bl CF 

???? 

???? 

B1D7 

B7D2 

B7D2 

B1D8 

B7D3 

B7D3 

B1D9 

B7D4 

B7D4 

B1EA 

B7E5 

B7E5 

B1FB 

B7F6 

B7F6 

B1FC 

B7F7 

B7F7 

Bl FD 

B7F8 

B7F8 

B1FE 

B7F9 

B7F9 

B20C 

B6B5 

B6B5 

B20D 

B6B6 

B6B6 

B285 

B726 

B726 

B287 

B728 

B728 

B288 

B729 

B729 

B289 

B72A 

B72A 

B28A 

B72B 

B72B 


HIMEM FOR SYMBOL AFTER 
USED BY GARBAGE COLLECT 
POINTER TO START OF STRING STACK 
STRING STACK 

TEMPORARY STRING DESCRIPTOR 
USED ON GARBAGE COLLECT 
SAVE ON GARBAGE COLLECT 
VARTYPE 

FLOATING POINT ACU/FAC 
FAC + 1 
FAC + 2 
FAC + 3 

KL INTERRUPT SERVICE QUEUE 
KL INTERRUPT PENDING QUEUE 
KL INTERRUPT SERVICE CHAIN 
KL INTERRUPT SERVICE CLASS 
KL SAVE SP ON INTERR SERVICE 
KL TIME BYTE 0+1 
KL TIME BYTE 2+3 
KL TIME BYTE 4 
KL FRAME FLY LIST POINTER 
KL FAST TICKER LIST POINTER 
KL POINTER TO TICK LIST 
KL SLOU TICKER COUNT 
KL SYNC EVENT QUEUE 
KL SYNC EVENT QUEUE +1 
KL EVENT CLASS 

KL TEMP STORE EXT COMMAND NAME 
KL RSX QUEUE 
????? 

KL ROM SELECT ADRESS 
KL ROM START 
KL ROM STATE TO CALL 
START OF ROM HIGH BYTE <C0) 

SCR SCREEN MODE 

SCR SCREEN START 

SCR OFFSET TO SCREEN START 

SCR BASE OF RAM FOR SCREEN 

SCR PIXELS URITE 

SCR PIXELS URITE SET JUMP ADRESS 

SCR CURRENT PIXEL BIT MAP 

SCR TIME FLASHING PERIOD 1 

SCR TIME FLASHING PERIOD 2 

SCR COLOR TABLE FLASH 1 (BORDER) 

SCR COLOR TABLE FLASH 2 (BORDER) 

SCR FLAG UHICH FLASH PERIOD (1 OR 2) 
SCR FLAG 

TIME COUNT/CURRENT FLASH PERIOD 

SCR FRAME FLY LIST 

TXT CURRENT TEXT STREAM 

TXT TABLE (STREAM-PARAMETER 8*15) 

TXT CURSOR COLUMN/ROU 
TXT UlNDOU FLAG 

TXT ROU-UINDOU LEFT UPPER CORNER 
TXT COLUMN-UINDOU LEFT UPPER CORNER 
TXT ROU UlNDOU RIGHT BOTTUM CORNER 


B28B 

B72C 

B72C 

TXT COLUMN-UINDOU RIGHT BOTTOM CORNER 

B28C 

B72D 

B72D 

TXT ROLL COUNT 

B28D 

B72E 

B72E 

TXT CURSOR ENABLE FLAG (USER) 

B28E 

???? 

???? 

TXT FLAG VDU ENABLE 

B28F 

B72F 

B72F 

TXT PEN INK 

B290 

B730 

B730 

TXT PAPER INK 

B291 

B731 

B731 

TXT ADRESS OF BACK-/FOREGROUND ROUTINE 

B293 

B733 

B733 

TXT FLAG GRAPHIC CHAR URITE 

B294 

B734 

B734 

TXT FIRST CHAR OF USER MATRIX TABLE 

B295 

B73S 

B735 

TXT FLAG USER MATRIX TABLE 

B296 

B736 

B73G 

TXT START OF USER MATRIX TABLE 

B298 

B738 

B738 

TXT BUFFER FOR UNPACKED CHAR MATRIX 

B2B8 

B758 

B758 

TXT CONTROL CODE PUFFER INDEX 

B2B9 

B759 

B7S9 

TXT CONTROL CODE BUFFER 

B2C3 

B763 

B763 

CONTROL CODE TABLE 

B328 

B693 

B693 

GRA USER ORIGIN X 

B32A 

B695 

B695 

GRA USER ORIGIN Y 

B32C 

B697 

B697 

GRA CURSOR X 

B32E 

B699 

B699 

GRA CURSOR Y 

B330 

B69B 

B69B 

GRA UINDQU UIDTH X-LEFT 

B332 

B69D 

B69D 

GRA UlNDOU UIDTH }(-RIGHT 

B334 

B69F 

B69F 

GRA UlNDOU HEIGHT Y-TOP 

B336 

B6A1 

B6A1 

GRA UlNDOU HEIGHT Y-BQTTOM 

B338 

B6A3 

B6A3 

GRA PEN INK 

B339 

B6A4 

B6A4 

GRA PAPER INK 

B33A 

B6A5 

B6A5 

GRA TEMP STORE 1 

B33C 

B6A7 

B6A7 

GRA TEMP STORE 2 

B33E 

B6A9 

B6A9 

GRA TEMP STORE 3 

???? 

B6AA 

B6AA 

77777 

B340 

BGAB 

B6AB 

GRA TEMP STORE 4 

???? 

B6AA 

B6AA 

77799 

???? 

B6AC 

B6AC 

????? 

B342 

B6AD 

B6AD 

GRA TEMP STORE X ON DRAU 

???? 

B6AE 

B6AE 

????? 

B344 

B6AF 

BGAF 

GRA TEMP STORE Y ON DRAU 

???? 

B6AE 

B6AE 

????? 

???? 

B6B0 

B6B0 

????? 

B346 

BGBl 

BGBl 

GRA TEMP FLAG 

???? 

B6B2 

B6B2 

????? 

B348 

B6B3 

B6B3 

????? 

B349 

B6B4 

B6B4 

77777 

B34C 

B496 

B496 

KM KEY NORMAL ENTRY 

B39C 

B4EG 

B4E6 

KM KEY SHIFT ENTRY 

BE3C 

B536 

BS36 

KM KEY CONTROL ENTRY 

B43C 

B586 

B586 

KM KEY REPEAT MAP 

B446 

B590 

B590 

KM KEY EXP BUFFER 

B4DE 

B628 

B628 

KM EXPANSION STRING FLAG/COUNT 

B4DF 

B629 

B629 

KM EXP BUFFER FLAG 

B4E0 

B62A 

B62A 

KM KEYBOARD PUT BACK CHAR 

B4E1 

B62B 

B62B 

KM POINTER TO F-KEY EXP BUFFER 

B4E3 

B62D 

B62D 

KM POINTER TO END OF EXP B+l 

B4E5 

B62F 

B62F 

KM POINTER EXP PUFFER LO-BYTE 

B4E6 

B630 

B630 

KM POINTER EXP-BUFFER HI-BYTE 

B4E7 

B631 

B631 

KM CAPS LOCK STATE 

B4E8 

BG32 

B632 

KM SHIFT LOCK STATE 

B4E9 

B633 

B633 

KM KEY REPEAT SPEED 
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B4EA 

B634 

B634 

KM KEY STARTUP DELAY 

B4EB 

B635 

B635 

KM KEY STATE MAP 

B4ED 

B637 

B637 

C0NTA1NS CTRL AND SHIFT BITS 

B4F1 

B63B 

B63B 

JOYSTICK 2 

B4F3 

B63D 

B63D 

BIT 2 = BREAK KEY 

B4F4 

B63E 

B63E 

JOYSTICK 1 

B4F5 

B63F 

B63F 

KM KEY CHANGE STATE MAP 

B4FF 

B649 

B649 

KM KEY LAST CYCLE STATE MAP 

B501 

B64B 

B64B 

SHIFT AND CAPS BITS ? 

B509 

B653 

B653 

KM TIME COUNT FOR REPEAT SPEED 

B50A 

B654 

B654 

79777 

B50B 

B655 

B655 

77777 

B50C 

B656 

B656 

KM BREAK ENABLE FLAG 

B50D 

B657 

B657 

KM EVENT BLOCK BREAK 

B51D 

B1B9 

B1B9 

START SOUND QUEUE CHANNEL A 

B520 

B1BC 

B1BC 

????? 

B522 

Bl BE 

Bl BE 

N01SE PERIOD CHANNNEL A 

B539 

B1D5 

B1D5 


B53C 

B686 

B686 

????? 

B53E 

B688 

B688 

77777 

B540 

B68A 

B68A 

ADR-1 KEY TRANSLATE TABLE 

B541 

B68B 

B68B 

KM TRANSLATE NORMAL ENTRY POINTER 

B543 

B68D 

B68D 

KM TRANSLATE SHIFT ENTRY POINTER 

B545 

B68F 

B68F 

KM TRANSLATE CONTROL ENTRY POINTER 

B547 

B691 

B691 

KM REPEAT KEY POINTER TO TABLE 

B550 

B1EC 

B1EC 

SOUND FLAG 

B55I 

B1ED 

Bl ED 

SOUND SAVE FOR AKTIVE SOUND 

B552 

B1EE 

B1EE 

SOUND CHANNEL BITS OF AKTIVE SOUND 

B554 

B1F0 

B1F0 

SOUND RENDENZVOUS BYTE 7 

B55C 

B1F8 

B1F8 

SOUND QUEUE CHANNEL A 

B59B 

B237 

B237 

SOUND QUEUE CHANNEL B 

B5DA 

B276 

B276 

SOUND QUEUE CHANNEL C 

B60A 

B2A6 

B2A6 

SOUND AMPLITUDE ENVELOPE 

B619 

B2B5 

B2B5 

77777 

B6FA 

B396 

B396 

SOUND TONE ENVELOPE 

B800 

B118 

BU8 

CAS MESSAGE FLAG 

B801 

B119 

B119 

CAS FLAG 7 

B802 

BUA 

BUA 

CAS FILE TYPE ON READ 

B803 

BUB 

BUB 

CAS START ADRESS INPUT BUFFER LOW 

B80S 

BUD 

BUD 

CAS POINTER INPUT BUFFER HIGH 

B807 

BUF 

BUF 

CAS FILE HEADER INPUT 

B80D 

B071 

B071 

POINTER LOW END $-SPACE 

B80F 

B073 

B073 

POINTER UPPER BOUND S-SPACE 

B817 

B12F 

B12F 

CAS IN BLOCK NUMBER 

B818 

Bl 30 

Bl 30 

CAS IN LAST BLOCK FLAG 

B819 

Bl 31 

Bl 31 

CAS IN FILE TYPE 

B81A 

Bl 32 

Bl 32 

CAS IN DATA LENGTH 

B81C 

Bl 34 

Bl 34 

CAS IN DATA LOCATION 

B81E 

Bl 36 

Bl 36 

CAS IN FIRST BLOCK FLAG 

B81F 

B137 

B137 

CAS IN USER FIELDS 

B847 

B15F 

B15F 

CAS OUTPUT FILE TYPE WRITE 

B848 

Bl 60 

Bl 60 

CAS OUT DIRECT POINTER DATA LO 

B84A 

Bl 62 

Bl 62 

CAS OUT DIRECT POINTER DATA HIGH 

B84C 

Bl 64 

Bl 64 

CAS OUT DIRECT/FILENAME 

B85C 

B174 

Bl 74 

CAS OUT DIRECT/BLOCK NUMBER 

B85D 

Bl 75 

Bl 75 

CAS OUT DIRECT/LAST BLOCK FLAG 


B85E 

Bl 76 

Bl 76 

CAS OUT DIRECT/FILE TYPE 

B85F 

Bl 77 

Bl 77 

CAS OUT LEN OF DATA 

B861 

Bl 79 

Bl 79 

CAS OUT DIRECT/DATA LOCATION 

B863 

B17B 

B17B 

CAS OUT DIRECT/FIRST BLOCK FLAG 

B864 

Bl 7t 

B17C 

CAS OUT DIRECT/TOTAL LENGTH OF DATA 

B866 

B17E 

B17E 

CAS OUT DIRECT/ENTRY FOR HEADER 

B88C 

B1A4 

B1A4 

CAS OUT FILENAME 

B89C 

B1B4 

B1B4 

CAS OUT BLOCK NUMBER 

B89D 

B1B5 

B1B5 

CAS OUT FILE TYPE 

B89F 

B1B7 

B1B7 

CAS OUT DATA LENGTH 

B8A1 

B1B9 

B1B9 

CAS OUT DATA LOCATION 

B8A3 

B1BB 

B1BB 

CAS OUT FIRST BLOCK FLAG 

B8A4 

B1BC 

B1BC 

CAS OUT USER FIELDS LOGICAL LENGTH 

B8A6 

B1BE 

Bl BE 

CAS OUT USER FIELDS ENTRY ADRESS FOR 

B8CC 

B1E4 

B1E4 

77777 

B8CD 

B1E5 

Bl ES 

77777 

B8CE 

B1E6 

B1E6 

77777 

777? 

B1E7 

B1E7 

77777 

B8D0 

B1E8 

B1E8 

77777 

B8D1 

B1E9 

B1E9 

7777? 

B8D2 

B1EA 

B1EA 

77777 

B8D3 

B1EB 

B1EB 

????? 

B8DC 

BU4 

Bll 4 

EDI CURSOR ON FLAG 

B8DD 

BUS 

BUS 

EDI INSERT/OVERWRITE FLAG 

B8DE 

BU6 

Bl 16 

EDI COPYCURSOR POS/COLUMN AND ROW 

B8E4 

Bl 00 

B100 

RANDOM NUMBER BYTE 0+1 

???? 

B101 

Bl 01 

77777 

B8E6 

Bl 02 

Bl 02 

RANDOM NUMBER BYTE 2+3 

B8E8 

Bl 04 

B104 

FAC 1 

B8ED 

Bl 09 

Bl 09 

FAC 2 

B8F2 

B10E 

B10E 

FAC 3 

B8F7 

Bll 3 

Bl 13 

FLAG DEG/RAD 

B939 

B941 

B941 

INTERRUPT ENTRY RST 7 

B978 

B970 

B970 

77777 

7777 

B972 

B972 

77777 

B97C 

B984 

B984 

LOW ROM OR RAM 

???? 

B9B0 

B9B0 

77777 

B9B1 

B9B9 

B9B9 

JP FAR CALL 

B982 

B98A 

B98A 

LOW JUMP 

B9B9 

B9C1 

B9C1 

KL FAR ICALL 

B9BF 

B9C7 

B9C7 

FAR CALL 

BA10 

BAI 7 

BAI 7 

JP TO A SIDEWAYS ROM 

BA16 

BA1D 

BA1D 

CALL TO A SIDEWAYS ROM 

BA2E 

BA35 

BA3S 

FIRM JUMP LOWER ROM 

???? 

BA45 

BA45 

77777 

7777 

BA46 

BA46 

77777 

BA4A 

BA51 

BAS1 

KL L ROM ENABLE CONT f D 

BA54 

BA58 

BA58 

KL L ROM DISABLE CONT r D 

BASE 

BASF 

BASF 

KL CURRENT UPPER ROM ENABLE 

BA68 

BA66 

BA66 

KL CURRENT UPPER ROM DISABLE 

BA72 

BA70 

BA70 

KL ROM RESTORE CONT r D 

BA7E 

BA79 

BA79 

KL SELECT AN UPPER ROM 

BA83 

BA7E 

BA7E 

KL PROBE ROM CONT'D 

BA8C 

BA87 

BA87 

KL STORE PREVIOUS ROM SELECTION 

BAA2 

BA9D 

BA9D 

KL CURR SELECTION CONT'D 

BAAS 

BAA1 

BAA1 

KL LDIR ROMS DISABLED 
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Franzis-Software macht 
aus Mensch und Compute 
ein Herz und eine Seele 


Die Diskette zum Heft! 


Sparen Sie sich Zeit und 
Ärger! 

Die Programme aus die¬ 
sem Sonderheft können 
Sie auch auf einer 3-Zoll- 
Diskette für Ihren Schnei¬ 
der-Computer erhalten. 
Das Abtippen der Pro¬ 
gramme kostet nicht nur 
Zeit und Nerven, sondern 
man macht meist auch 
noch Tippfehler, die eine 


zeitaufwendige und 
ärgerliche Fehlersuche 
zur Folge haben. 

Unter diesem Gesichts¬ 
punkt hat sich die 
Diskette schnell bezahlt 
gemacht. 

Am besten bestellen Sie 
gleich die Schneider-Dis¬ 
kette zum Sonderheft! 
Bestellnummer: 0179-3 
Preis: 35 DM 


FRANZIS SOFTWARE SERVICE 
Franzis 9 

Franzis-Verlag, Software-Service, Karlstraße 37-41, 8000 München 2, 
Telex 522301, Telefax (089) 5117-379, BTX-Leitseite * 30503 # 
Telefon direkt: (089) 5117-331 


Pascal in der Methode Busch 

Nie wird der zweite Schritt vor dem ersten gemacht. Das ist der 
unbestreitbare Vorzug der „Methode Busch". Der Autor kann 
sich nur zu gut daran erinnern, wie er Pascal von Anfang an 
lernte und welche Stolperdrähte er erst einmal wegräumen 
mußte bis schließlich der Pascal-Weg mühelos gangbar war. 
Systematisch erklärt der Autor zunächst die wichtigsten Sprach- 
elemente. Diese werden anhand von praktischen Beispielen 
eingeübt und laufend wiederholt. Ein Grundwortschatz in Pascal 
entsteht. Kleine Programme werden geschrieben, die sofort 
nützlich für die praktische Arbeit sind. Das Selbstbewußtsein 
steigt. Der Neuling ist erstaunt, wie einfach, schlicht und span¬ 
nend der Autor Pascal-Unterricht gestaltet. 

Und was kann der Leser und Benutzer dieses Buches am Ende? 
Das exakte Definieren von Algorithmen hat er gelernt. Er 
beherrscht einen Basisumfang von Pascal. Grammatik und Syn¬ 
tax sind geläufig. Er hat die unbändige Lust auf mehr und der 
Karriere als Pascal-Programmierer steht nichts mehr im Wege. 


Der sichere Einstieg in Pascal 


Der leichte Weg 
zum selbständigen 
Programmieren 
in Pascal. 

Von Rudolf Busch. 



192 Seiten, 

52 Abbildungen, 
Lwstr-geb. DM48- 
ISBN 

3-7723-7861-7 


Franzis 9 

der große Fachverlag für angewandte Elektronik und Informatik 

Franzis-Verlag, München © 
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Alles über 


jVÜkro- 

Compu 



nc-Sondeitieft NEU 

Jas BASIC-SONDERHEFT 
tesic-Programme und Pragram- 
niertips aus allen Anwendungs- 
tereichen. u. a. fürCommodore-, 
spple- und MS-DOS-Rechner. In 
x schon erschienene Beiträge 
/urden z. T, verbessert und für 
ndene Rechnertypen angepaßl, 

. B. Datenbank-Programm, Text- 
ditor, Experlensystem u. a. 
ür alle ernsthaften Anwender von 
Jomputem. 

20 Seiten, 24 DM 


Das 

ITIC-MODEM-Sonderheft 
behandelt Hard- und Software zur 
Datenübertragung per Telefon - 
Schaltungstechnik von Modems. 
Übertragungs-Software, Grundla¬ 
gen der Datenfernübertragung, 
Schnittstellen an Compülern. 
Übertragungsprotokolle, öffentlich 
zugängliche Datenbanken. 
Überwiegend Aufsätze aus me. 
Für Profis und Hobbyisten. 

64 Seiten, 16 DM. 



für den C 64 

falMu ui i U dW K wÜn d u lw)h 
fip,, fritfi m4 «üiMt hMtfhaH 



UNKSCHAU-Sondertieft NEU 
Klartext für den C 64 


:in stark praxisorientierter Lehr- 
ang über das Programmieren 
es C 64 in Maschinensprache, 
Jas Heft ist eine überarbeitete Zu- 
ammenfassung der gleichlauten- 
len FUNKSCHAU-Serie. Neu hin- 
ugekommen ist die achtteilige 
ierie „Schach denn Video-Chip", 
lie zu einem Maschinen pro- 
iramm für hochauflösende Grafik 
jhrt. 

ür Anfänger. 

4 Seiten, 18 DM 



ELEKTRONIK-Sonderheft NEU 
Daten-Kommunikation 
Alles Wichtige, was die 
ELEKTRONIK bisher über dieses 
Spezialgebiet schrieb, finden 
Sie Jetzt komplett In einem Heft. 
Damil gibt der Franzis-Verlag allen 
interessierten ein vielseitiges Infor¬ 
mation s mittel in die Hand, das alle 
wesentlichen Aspekte der Daten¬ 
übertragung transparent macht. 
3., ergänzte Auflage. 

Für Einsteiger und „alte Hasen", 
160 Seiten, 23 DM 


Kennenlem-Angebot 

für eine von vier Franzis-Zeitschriften 
zum vorteilhaften Jahresabonnementspreis 



Ich möchte Ihre Zeitschrift (nachstehend angekreuzt) kostenlos probelesen. 
Informiere ich Sie nach Erhalt des Heftes nicht anders, abonniere ich diese 
Zeitschrift. 


Die Bestellung kann ich innerhalb von 10 Tagen nach Erhalt des kosten¬ 
losen Heftes beim Franzis-Verlag, Postf. 37 02 80, 8000 München 37, 
widerrufen. Zur Wahrung der Frist genügt rechtzeitiges Absenden. 


Datum 


Unterschrift 


Wenn Sie nichts mehr von mir hören, möchte ich ab 
Ihre Zeitschrift 


□ Elektronik 

□ Punkgchau 

□ BO 


26 Hefte pro Jahr, Jahresabonnements¬ 
preis DM 126,-, im Ausland DM 150,— 
26 Hefte pro Jahr, Jahresabonnements¬ 
preis DM 105-, im Ausland DM 129- 
12 Hefte pro Jahr, Jahresabonnements¬ 
preis DM 55,20, im Ausland DM 64,20 
12 Hefte pro Jahr, Jahresabonnements¬ 
preis DM 66-, im Ausland DM 72- 


abonnieren. Senden Sie die Hefte an folgende Anschrift: 


Name/Vomame 


Beruf 


Straße 


PLZ/Ort 


Datum Unterschrift 


In den genannten Abonnementspreisen sind sämtliche Nebenkosten, einschließlich Porto, 
onthalten (Preis Stand 1/1986). 

Die Kündigung ist jederzeit zum Ende des bezahlten Zeitraumes möglich. 

Die Abonnementsgebühr ist nach Erhalt der Rechnung fällig. 


G7C2 


Kennenlem-Angebot 

für eine von vier Franzis-Zeitschriften 
zum vorteilhaften Jahresabonnementspreis 

Ich möchte Ihre Zeitschrift (nachstehend angekreuzt) kostenlos probelesen. 
Informiere ich Sie nach Erhalt des Heftes nicht anders, abonniere ich diese 
Zeitschrift. 


Die Bestellung kann ich innerhalb von 10 Tagen nach Erhalt des kosten¬ 
losen Heftes beim Franzis-Verlag, Postf. 37 02 80, 8000 München 37, 
widerrufen. Zur Wahrung der Frist genügt rechtzeitiges Absenden. 


Datum Unterschrift 

Wenn Sie nichts mehr von mir hören, möchte ich ab 
Ihre Zeitschrift 


□ Elektronik 

□ Jmlmeiam 


26 Hefte pro Jahr, Jahresabonnements¬ 
preis DM 126-, im Ausland DM 150- 
26 Hefte pro Jahr, Jahresabonnements¬ 
preis DM 105,-, im Ausland DM 129- 


» » , r 
o 2 K L 


12 Hefte pro Jahr, Jahresabonnements¬ 
preis DM 55,20, im Ausland DM 64,20 
12 Hefte pro Jahr, Jahresabonnements¬ 
preis DM 66-, im Ausland DM 72 t - 

abonnieren. Senden Sie die Hefte an folgende Anschrift: 



Name/Vomame 


Beruf 


Straße 


PLZ/Ort 


Datum Unterschrift 


In den genannt«« Abonnementspreisen sind sämtliche Nebenkosten, einschließlich Porto, 
enthalten (Preis Stand 1/1986). 

Die Kündigung ist jederzeit zum Ende des bezahlten Zeitraumes möglich. 

Die Abonnementsgebühr ist nach Erhalt der Rechnung fällig. 













































Elektronik verstehen, Computer verstehen - 
mit der ELO fängt der Spaß 
an moderner Technik erst so richtig an. 



Die Rubrik ELO- 
Service bringt regel¬ 
mäßig Marktüber¬ 
sichten, die Ihnen 
wichtige Orien- 
tierungshilfe im immer 
unüberschaubarer 
werdenden Markt 
elektronischer 
Produkte sein werden. 

Und natürlich finden 
Sie ELO-Test- 
berichte: Über 
Schach- und Home¬ 
computer, über Video 
und HiFi-Geräte, 
über Meßgeräte und 
alles, was damit im 
Zusammenhang steht. 

Die ELO verbindet die 
Elektronik mit dem 
Computer. Wer endlich 
richtig einsteigen 
möchte und den Spaß 
an moderner Technik 
neu entdecken will, 
für den gibt's die ELO 
für DM 5,50 an allen 
größeren Zeitschriften¬ 
verkaufsstellen. 

Noch besser: Sie 
machen von unserem 
vorteilhaften 
Kennenlern-Angebot 
Gebrauch. 

Eine Kennenlem- 
Karte finden Sie an 
der Umschlagklappe. 


Weil Sie in der ELO 
leicht zu realisierende 

Bauanleitungen 

finden, die Ihnen Elek¬ 
tronik praktisch nahe 
bringen und oft neue 
Einsatzbereiche 
für den Computer 
erschließen: Messen, 
Steuern, Regeln, 
Erfassen, Auswerten. 


Und weil ELO Ihnen 
helfen wird, Hardware 
in Ihrem Sinne zu 
verändern - auch als 
Anfänger. 


Daneben finden Sie 
leicht verständliche 

Beiträge zu 
Grundlagen der 
Elektronik, die sehr 
schnell dazu 
beitragen, technische 
Zusammenhänge 
zu erkennen und zu 
nutzen. 


Im Magazinteil der 
ELO und in ELO- 


und Computern 
alles möglich ist. 

In der Forschung, 
in der Industrie, im 
Verkehrswesen, 
im Umwelt¬ 
schutz ... 


Reports wird berichtet, 

was mit Elektronik 


Das Magazin für Elektronik und Computer 


















